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FOREWORD 

THE PURPOSE of this manual is to familiarize the IBM customer engineer with the 
language and data processing methods found in the Fortran automatic coding systems. 
Some service hints are also included where available. 

The reader is expected to have at least a cursory knowledge of the Fortran Primer 
and Fortran Reference manuals. With this background, the material in this manual 
can be of great value; without it many points will be obscure. Wherever possible, 
references are made to the two manuals just mentioned. 

Much thought has been given to what should be included in this manual. A survey 
of customer engineering opinion indicates that the most difficult problems are ex- 
perienced in the data transmission area. Therefore, this manual concentrates most 
heavily on input-output, and mentions arithmetic processing only briefly. 



A word should be said concerning the interrelationships of the various Fortran 
systems. At this time the Fortran I and II systems have been stabilized; that is, 
there will be no more major changes in the organization of their executive programs. 
The Fortran 709 system is at present in a state of major change. In general, much 
will be common in all three systems. For instance, the function of all tape units in 
the three Fortran modes will be the same. Where the drum was used in Fortran I 
and II, upper core storage will be used by Fortran 709. More diagnostic routines are 
written into Fortran II and Fortran 709 than in Fortran I. All manual operation 
f features of the three systems are alike, except for the use of sense switch 6 to control 

batch compiling in Fortran II and Fortran 709. 



This manual supersedes the Fortran Translator Customer Engineering Manual of 
Instruction, Form 29-9437-0. It supplements the following published IBM manuals: 

Title Form 

Programmer's Primer for Fortran 32-0306 

Programmer's Reference Manual Fortran 32-7026 

IBM Reference Manual, Fortran II (S) C28-6000 

IBM Reference Manual, Fortran II (S) C28-6001 
IBM Reference Manual, Fortran Automatic 

Coding System C28-6003 

IBM Fortran General Information Manual F28-6019 
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1.00.00 FORTRAN EXECUTIVE ROUTINE 



1.01.00 INTRODUCTION 



The problems involved in man's communication with the complex computer 
are in many respects similar to those problems involved with his communi- 
cation with another man who speaks an unfamiliar language. There must be 
language translation in either situation in order that the communication be 
fruitful. In considering current problems of communication with the computer 
we will consider here only the medium of "written" language, although there 
are research teams seriously engaged in communicating with the machine by 
the spoken word. 

The Frenchman who must learn English has a great advantage over the 
Oriental who is faced with the same task. The former need not learn a 
new set of symbols (Roman and Arabic) that is the first task of the latter. 
The position of man and machine is more akin to the Oriental's problem 
of learning English than that of the Frenchman. Man must first learn the 
symbols that the machine uses to build its words. 

The machine's symbolism (speaking now of the 701, 704, 709, and 7090) is 
binary in nature. The need for recognition of two symbols makes the internal 
circuitry of the machine relatively simple. In terms of machine hardware, 
the binary symbol takes the form of a component conducting or not conducting, 
a pulse available or not available, a core saturated in one direction or the 
opposite direction, or a changing magnetic flux on tape or the lack of that 
change. The internal evidence of this binary symbolism is brought to the 
surface of the machine in the readable form of light patterns. The individual 
lights are binary, in that they are either on or off. Needless to say, the nor- 
mal man has little difficulty learning the binary symbolism of the computer. 

The Oriental should not be considered an English scholar, simply because 
he has learned the 36 symbols that express all our literature. Similarly, the 
man who wants to communicate with the machine should not feel satisfied that he 
knows machine language by virtue of his recognition of the on or off condition 
of a light. He must learn the limitations and rules involved in grouping the 
symbols together into intelligible patterns to form words , and those words 
into complete thoughts. 

In considering words of the English language, we know that the words can 
be categorized into one of seven types (nouns, verbs, adjectives, and so on) 
depending primarily upon their use in a sentence. When considering binary 
language, the types of words recognizable by the machine are clearly defined 
by their use in a program and fall into the following categories. 



Operation Code. Command to the machine to perform a given sequence of 
events (E.g. , the binary bit pattern 000101000000 informs the computer: 
"Remove a number from core storage and place that number into a central 
processing unit register called the accumulator. If another number is already 
in the accumulator, destroy it. M ) 

Address. Action in the computer cannot take place unless the location of an 
activity is defined. The address defines the location of activity during the 
execution of an instruction. In the example given in the definition of an instruc- 
tion, the core storage cell from which data is withdrawn has a location called 
an address (e.g. , 01010101). Similarly, if an operation code informs a tape 
unit to write , an associated address defines which specific tape unit is to 
perform this action. 
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Data. Arithmetic processing involves the combination of numbers. Usable 
numbers must have magnitude and sign and should be expressible in either ~"\ 

fixed point (1. 64,268) or exponential form (3 x 10 6 , 1.6 x 10 ~ 4 ). The internal ^ 

circuitry of the computer expresses all these factors in binary form. 

Address Modifiers . It is possible to perform the same series of operations 
many times on different areas of the machine, without repeating the writing 

of the instructions, through modification of the addresses associated with the J 

instructions. The address modifiers alter the addresses between successive 
executions of the instructions. This is comparable to the use of business 

routing forms where the originator fills in the blanks, indicating destinations ) 

of the information. For example: 

Form number is forwarded to , , and via ^J 

on the following dates: and . 

The blanks represent areas of activity; the preset wording represents the 
commands that are unchanging. The selection of words to "fill in the blanks" 
in a computer is controlled by address modification words. Generally, the 
selection is sequential in nature. 

What can man gain by grouping the computer's words together? Consider 
first the grouping of operation codes. The uninitiated "Chinaman" will be 
delighted to learn that there are only 200 or less combinations of words that 
can be called operation codes. He says to himself, "If I could express these 
A, B, C combinations in Chinese, which is familiar to me, I will have little 
difficulty remembering all the operation codes. " 

This system has been adopted by the users of computers. IBM and the SHARE 
organization have established a standard set of symbols to take the place of the 
operation code bit -no-bit pattern. This symbolism is in the form of abbrevia- 
tions of the function of each code. These symbols are called mnemonic because 
they are reminders of the function. The following chart illustrates the point. 
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Machine Language Function Mnemonic Code 

000100000000 ADD to the current value in the ADD 

accumulator 

000010000000 MULTIPLY the present value of the MPY 

given register by a given number 

000000010000 TRANSFER to a new location when the TR A 

next instruction is required 

000110000001 STORE the contents of the MQ STQ 

register in core storage 

Consider again the Oriental's problem of learning English. In the light of 
the previous paragraph, he has learned that groups of symbols are called words, 
and there seems to be no end to the combination of symbols. In order to 
systematize his approach to the language learning problem, he knows that he 
can group the words in categories depending on their usage. This grouping 
brings out common factors from which general conclusions can be drawn. 
Once the general conclusions are accurately drawn, the learning of the new 
language is reduced to expansion of well established facts. Unfortunately 
for the Oriental, English cannot be resolved into a collection of precise, 
arithmetic formulae. Therefore, he is always faced with modification of 
his general conclusions. 

The man communicating with the machine, however, does not have to 
contend with this "grey area" of learning. After all, the machine is just 
a machine. Provided it is operating in the manner for which it was designed, 
the message delivered by a given command will be identical on the first 
and millionth pass. The mechanism is designed to respond in as predictable 
a series of events as those which occur when a simple lever is operated. 

Notice that the language of the computer is highly precise in form, as is 
the mnemonic code. There is no need for confusion in translating from the 
mnemonic to binary — and yet the translation must be accomplished. 

The next question is, which agent in the transaction should learn the foreign 
language? (It is only necessary for the Oriental to learn English in order 
to communicate with an Englishman. If the Englishman were also to learn the 
other language , a redundant effort would be made . ) Based on its speed and 
accuracy and its untiring effort, the computer was selected as the translator. 

Fortran is a program which controls the machine to accept our familiar 
notation and pass on the binary translation to the machine circuits. Man 
writes his operation codes in familiar mnemonic and the machine translates 
the mnemonic to binary. This translation is one of the functions of Fortran, 
SCAT, and other assembly routines. An important difference in Fortran is 
that the machine does not start with mnemonic language but rather with a 
special, concise Fortran language of mathematical symbols from which it 
generates its mnemonic and binary operation codes. It is to be emphasized 
here that the prime function of the Fortran system was to permit the math- 
ematician to use his symbols rather than SHARE mnemonic codes in 



controlling the machine. The word Fortran is a contraction of Formula Translation. 
The following diagram shows how the Fortran language relates to mnemonic. 

Fortran Language Mnemonic Function Machine Language 

+ ADD Add to the current 000100000000 

value in the 
accumulator 

GO TO TRA Transfer to a new 000000010000 

location when the 
next instruction 
is required 

X=A + B *STO Put the current value 000110000001 

of A + B in storage j 

cell X ^ 

♦The STO represents the mnemonic translation of the equal sign only. J 

The ultimate goal in translating the Fortran language to usable form is a binary _ 

object program. In writing the binary program, Fortran also writes its own series ) 

of mnemonic instructions. A listing of the mnemonic program is available to the pro- 
grammer under sense switch control, in addition to a binary punched object program. 



In review, we have considered only one part of the machine language, operation 
codes. Through our analysis we learned that the number of operation codes was 
limited. The machine assumes the burden of translation. Also, since the machine is 
concise in its language, we must be concise in the language we use in communicating 
with it. Fortran language is a form of mathematical language which meets the quali- 
fications of precision. Fortran mnemonic instruction coding is a secondary output of 
the prime function of converting from the mathematical source program to the binary 
object program. 

Let us focus our attention on the second category of machine words — addresses. 
We have stated that addressing defines the area of activity of an operation code. How 
can these addresses be best grouped and then subjected to translating from binary to 
familiar language? Grouping can best be accomplished by considering core storage 
as opposed to non-core -storage locations. 

Core storage addresses each have well defined binary "cell numbers" similar to 
the house numbers on a given street. The number of numbers depends on how long 
the street is or how large core storage is. (From the Fortran point of view, there 
are different programs written for 4k and 8k systems . ) 

Again, difficulty is experienced in communicating in the binary symbolism of the 
machine when referring to core storage addresses. Man has grouped his addresses 
into octal notation by considering groups of three binary lights to produce eight possi- 
ble light patterns. By inspection, in other words, man has simply translated binary 
to octal notation for ease of communication (from one man to another). The combina- 
tion of a mnemonic operation code and address is called an instruction; e. g. , CLA 
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0700, clear and add the number which is at storage location 0700. With the mnemonic 
notation of operation code and octal addressing, man is prepared to program the com- 
puter. He can specify precisely what is to happen (operation code) and where it is to 
happen (address). However, in using the octal address notation already described, 
the programmer is limited in his programming flexibility. Programming of the type 
just described (CLA 0700) is called absolute addressing because the address (0700) is 
inflexibly 0700. If for some unpredictable reason the data at 0700 was moved, the 
CLA instruction must be altered to meet the requirements of the new data location 
and, for that matter, any absolute address in the program may have to be altered to 
meet unpredictable requirements. 

In order to take into consideration future needs of a given program, absolute ad- 
dressing was replaced by symbolic addressing. Essentially, symbolic addressing 
put the bookkeeping job of assigning data and instructions to storage squarely on the 
shoulders of the computer. Using the preceding example, the CLA 0700 instruction 
in symbolic form might appear as CLA R, where R is now an arbitrary symbolic 
address. The machine has the capability of doling out the storage area to a given 
program and eventually assigning an absolute value to R once all the needs of the 
program have been satisfied. The assignment of core storage locations to instruc- 
tions and data is called assembling. Assembly is one of the functions of UASAP 1 
and 2, UASAP 3 and 4, SCAT, and Fortran. Fortran differs from the other executive 
routines listed because the programmer has no control over the symbols used as 
symbolic addresses by the Fortran program. This is a great advantage in that the 
programmer using Fortran need not be concerned with the details of keeping track of 
symbols. (Because the programmer using SCAT must make constant reference to 
his symbols, it is best that he have his choice of symbols for his addresses.) The 
symbols that the machine has manufactured for its core storage addresses will ap- 
pear in the printed symbolic listing of the Fortran assembled program. 

In summary, although core storage addresses represent one of the major cate- 
gories of machine "words, " the programmer using Fortran need not concern himself 
with these addresses because the machine assigns both symbolic and binary addresses 
to the object program. 

Let us next consider the non-core storage addresses. Input-output devices all have 
addresses. Unlike core-storage, these devices provide the programmer with 
his program results. If results are to appear on tape, for example, the programmer 
must have control over which tape is to receive this information. The Fortran 
program cannot assign arbitrary symbolic and absolute binary addresses to input- 
output media; this assignment is the responsibility of the programmer. A family 
of Fortran statements is provided to specify use of tapes, card machines, drum, 
sense lights, and sense switches during the run of the object program. The language 
used is specific and closely resembles the standard SHARE coding. For example: 

SHARE Fortran Statement 

RDS 302 READ DRUM 2*, 1, AB 

WRS 232 WRITE TAPE 2*, AB 

♦The 2's in these statements are drum and tape unit addresses. 
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Consider next the data. Like the operation code and the address, the internal cir- 
cuits of the machine respond only to the data in binary notation. However, Fortran 
controls the machine to accept decimal notation and to pass on the binary equivalent 
to the machine circuits. In addition, when required, Fortran control informs the 
machine to translate the binary back to understandable decimal for the printed report. 

Using Fortran, data coming into the machine during the run of the object program 
can be alphabetic, decimal, fixed point, floatingpoint, on tape, or on cards. No 
standard form is required of the data because the author of the source program de- 
scribes the form with Fortran statements, called Format statements. Format state- 
ments describe the data cards according to field length, floating versus fixed point, 
sign, and placing of the decimal point. 

Address modifiers like adverbs are difficult to describe in general terms. Their 
use is associated only with the modification of core storage addresses. They add 
finesse to the programmer's technique by relieving him of the monotony of repeating 
instructions used in a repetitive manner. Address modification is defined in terms 
of operation codes, addresses, and a new term, index registers. Index registers are 
central processing unit devices. Index registers enter into the discussion because 
they contain the amount that an address is changed during a given operation. For 
example: TRA 6000, 1 is an "indexed" instruction written in SHARE symbolic. In 
everyday terms it says "take the next instruction from location 6000 less the amount in 
the number one index register. " Therefore, if the index register contained 1000, the 
transfer would take place to location 5000 instead of 6000. Address modifier words 
describe the contents (i. e. , 1000) of index registers and the "name" of the index regis- 
ter (i. e. , 1). There are three index registers in the 704 and 709, identified in SHARE 
symbols as 1, 2, and 4. Whenever an index register is called for in an instruction such 
as CLA, TRA, or STQ, the contents of the index register are subtracted from the ad- 
dress of that instruction. Other instructions (e.g. , TDC, TXI, AXT) alter the contents 
of the index registers. Simply by using the notation already introduced in operation 
coding and addressing, a system of address modification can be built into a UASAP 1 
and 2, UASAP 3 and 4, or SCAT program. How does Fortran handle address modifiers? 
Easily understandable Fortran statements are translated to address modifiers. Con- 
sider the Fortran "DO" statement. This statement permits the programmer to repeat 
a series of commands. For example: 

External Formula Number 

1 DO 25 I = 1, 10 

A(I) = B+C 
R(I) = A*D 
25 PRINT 1 . A(I), R(I) 

STOP 

The first statement (1) indicates the address modifiers. It says "the object pro- 
gram should execute the following statements up to and including the one labeled 25. 
It should repeat this process from the time that I has an initial value of 1 up to and 
including the time that I equals 10, each time through the program increasing I by 
a factor of 1. " The contents of the index register would initially be 10, and indexing 
instructions would be built into the object program to reduce these contents by 1 , 
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each pass through the program. The selection of which index register (1, 2, or 4) 
is to be used in the object program is the choice of the Fortran program. A series 
of SCAT coded instructions to accomplish the same result would require several 
dozen instructions. 

In conclusion, the Fortran system contains a concise language, mathematical in 
background, employing familiar symbols which are readily translated to machine 
binary coding. The programmer need not learn anything more about the machine 
than the limitations placed on his mathematics by the physical size of the machine and 
some statements governing the input-output transmission. In the run of the Fortran 
executive routine, Fortran language is translated to SHARE mnemonic and relocatable 
binary cards. The SHARE symbolic operation code listing is only secondary to the 
machine control. Addressing of core storage is symbolic and is entirely under control 
of the machine. Input-output addressing is under option of the programmer. Data 
can be of any decimal form, as is described by Format statements in the program. 
Address modification is employed by the Fortran program but is given to the program- 
mer in easily understood language. The selection of index registers and indexing 
instructions is made by the computer under control of the Fortran translator program. 



1. 02. 00 GENERAL ORGANIZATION OF TRANSLATOR 

In all three Fortran modes (I, II, and 709), the translator is described in terms 
of six sections. Each section is distinct in purpose. Section 3. 00. 00 of this manual 
describes, in programmer's terms, the functions of each section of the translator. 
A digest of Section 3. 00. 00 follows in Section 1. 02. 

1.02.01 Section I 

In this translator section, source cards, punched in the Fortran language, or BCD 
tape containing the source information, are read into the system. If card input is 
used, the information on the cards is transmitted to tape 2 in BCD. If tape input 
is used, tape 2 is originally set up with the source program in BCD. 

With tape 2 containing the source program, the translator proceeds to code all 
the statements in the source program. Every statement receives a code number , 
called the "internal formula number" (IFN). These numbers are assigned in sequence 
starting with 1. All internal references to the original statement are made using 
IFN as identification. The IFN is not to be confused with the "external formula number" 
(EFN) punched in the source program cards. Input-output statements receive more 
than one IFN. 

The scanning of the BCD file on tape 2 occurs only once. All information con- 
tained in this file must be coded as it is being read. The information will take one 
of two forms: compiled instruction tables (CIT) or non-CIT. (The CIT format is 
described in detail in Section 2. 03. 00. It is a standard form, and the final form of 
all Fortran statements and data before they are compiled in Section 6). The CIT 
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information is stored temporarily on tape 3 in Section 1. This information is erased 

during Section 1' and is stored on tape 2, file 2. The CIT contains the results of 

analysis of all arithmetic statements. This analysis is completed in Section 1. 

It is the most important part of the Fortran program in that it accomplishes the ~"\ 

translation between source arithmetic statements and manhine inKtmntirms — J 



translation between source arithmetic statements and machine instructions. 

All arithmetic instructions written in this section are written in CIT form and 
placed in a record called the COMPAIL file (Complete Arithmetic, Input -output, 
Logical) . 



o 

The non-CIT information is stored in buffer areas temporarily in core storage. ~^ 

When the buffers are full, their information is transferred to tape 4. The buffer units 
are ten words long and located in lower storage. ~^\ 

1.02.02 Section 1' 

Section 1' places the CIT information of tape 3 on the second file of tape 2, arranges 
the tape 4 tables in order, and stores the information in tape 2, files 3,4, and 5. 

1.02.03 Section 2 
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Section 2 compiles the instructions associated with indexing that result from DO . ) 

statements and the occurrence of subscripted variables. These instructions are 
placed in the COMPDO file in CIT form. 

In this section the program assumes that there are many index registers in the 
machine. Indexing instructions are going to be generated through the use of: 
Arithmetic statements. For example, I = N + 1 where N is a subscript. 

The contents of an index register will be increased by one. 
DO statements. For example, DO 10 I = 1, 5. Here, statements up to and 

including 10 will be repeated for all values of I from 1 to 5. To the reader 

familiar with programming, this statement implies the use of indexing 

instructions to accomplish the given result. The handling of indexing becomes 

more complex where DO statements fall within DO statements to create 

M DO nests. " 
Combination of arithmetic and DO statements. 

1. 02. 04 Section 3 

Section 3 merges the COMPAIL and COMPDO files into a single file, meanwhile 
completing the compilation of non- arithmetic statements begun in Section 1. At this 
point the object program is complete but it has been assumed that the 709 is a machine ^ 

with an unlimited number of index registers. 

1.02.05 Section 4 

Section 4 carries out an analysis of the flow of the object program to be used by 
Section 5. The running of the object program is simulated in order to do this. The " J 

object program may be run several hundred times in this section. 
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1. 02. 06 Section 5 and 5' 

Section 5 manipulates the symbolic tag information so as to write the object pro- 
gram with the three actual index registers of the 704-9. The processing is very 
complex; however, certain tabled information of interest is generated during the run. 
All major decisions concerning index registers are recorded in the predecessor 
(PR ED) table, and a table of all tagged instructions (STAG) is recorded. These are 
one-word entry tables which remain in core storage. 

Section 5' is generally considered a bookkeeping section. Up to this point the 
constants involved in tne object program have been stored in tables. Since all 
information from the translation must get to the object program in compiled instruction 
tables (CIT), a departure is made from the normal sense of CIT's in that the constants 
are also transmitted in this form. In the place of an instruction code, the SAP 
mnemonic for octal data (OCT) is entered into the decrement field of the second word 
of the CIT entry. In this form the information from the following tables is recorded 
in the object program: FDCCON, FLOCON, ASSIGNED CONSTANTS, FORMAT and 
UNIVERSAL CONSTANTS. 

1.02.07 Section 6 

Section 6 assembles the object program, producing a machine language program on 
cards or tape ready for running. The object program can also be produced in Share 
symbolic language, if desired. 

1. 03. 00 NUMBER OF INSTRUCTIONS IN EACH SECTION 

There are approximately 24,000 instructions in the Fortran executive program. 
The number of instructions in each section of Fortran I are as follows: 

Section No. No. of Instructions 

1 5,500 

2 6,000 

3 2,500 

4 3,000 

5 5,000 

6 2,000 

1. 04. 00 FORTRAN SYSTEM TAPE 

1.04.01 General Organization 

The complete Fortran translator program is written on the Fortran system tape. 
The program is written and executed in sections, each section consisting of a number 
of variable -length records. An individual record is called into core storage from the 
system tape when it is needed. 

Versions of the Fortran translator differ according to size of the 704 used to run the 
program. The most common version is designated 4-1-4-1. This program requires 
a single 737 (4k words), a single 733 Drum (8k words), and four 727 tape units. There 
is also an 8-1-4-1 version almost identical to 4-1-4-1 except that it requires a 
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704 with two 737 's providing 8k storage. For large programs it will run considerably 
faster than the 4-1-4-1 version. There is another modified Fortran version for use 
on 704's with the 738 (32k words and no drum). 

The system tape has three files. The first two files are the executive routine or the 
system proper. The third file is the library (Figure 1). File 1 contains a special 
first record called 1-CS and 7 other ordinary system records (Figure 2.) The end-of- 
file mark is not considered to be an ordinary system record. File 2 of the Fortran 
system tape consists of ordinary records numbered 8 through 67 (Figure 3). These 
records are not called into core storage and executed in sequence, but are executed in 
the order shown in Figure 4. First of all, the special program 1-CS, the first record 
(number 0) in file 1, is loaded. Then 1-CS reads in record 1. This is the first 
executable record of Section 1. It is called the "card-to-tape simulator. " It reads 
the source program from the card reader. This source program, consisting of 
Fortran statements, is converted to BCD and written on tape 2. The EOF signal 
from the card reader causes the skip to the beginning of file 2. Records 8 through 
67 are then executed in sequence. The following list specifies the records of file 2 
and the section of which each is a part, for Fortran I. 



1 8-20 

2 21-36 

3 37-41 

4 42-48 

5 49-54 

5 55-67 

6 2-7 

1. 04. 02 Fortran I Ordinary System Records 



The decrement of the control word contains the address to which control is to be 
transferred after the record has been completely read (Figure 6). This address is 
referred to as the "TRA address." 

The information stored in location 17 can be displayed to find out the last TRA 
and LOAD address handled by the 1-CS program. This information could be helpful 
if the machine "hangs up" somewhere in the running of the Fortran program or comes 
to a halt at some storage location not in an error stop listing. Table I shows the 
TRA and LOAD addresses for the various records of the Fortran program, providing 
a reference for determining what record or what area of the program is failing. By 
displaying location 17s and using the table, the particular record and section where 
the stop is encountered can be identified. This does not necessarily mean that the 
error is in this particular record, since the trouble could be introduced earlier and 
not indicated at that time. 
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Section No. Records Included ^) 

Q_9rt —^ 



3 



D 



The first word of each system record is a check sum for that record; it is placed 
in location 2 by the 1-CS program (Figure 5). The second word of each record is a 
control word which is placed in location 17 g . The address field of the control word 

gives the first storage location into which the first step of the program is to be stored. ~^) 

This location is called the "load address. " The remaining words of the program will 
be stored in consecutive locations above the first location or load address. 
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FORTRAN EXECUTIVE 
PROGRAM OR SYSTEM PROPER LIBRARY 

Figure 1. Fortran System Tape 



f. 



SPECIAL. 
FIRST RECORD 
l-CS 

8 



7 ORDINARY SYSTEM 

RECORDS 

Figure 2. File 1 of the System Tape 

10 II 65 




60 ORDINARY SYSTEM 
RECORDS 



Figure 3. File 2 of the System Tape 
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c 
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, FILE 








FILE 2 








FILE 3 


RECORD 1 


RECORD 8 

Q 






LIBRARY 










in 


5 

6 






'? 


66 
67 


STOP 


7775 



























Figure 4. Execution Order of the Record: 
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CONTROL 



1ST WORD 

OF RECORD 

PROPER 



2ND WORD 




LAST WORD 

OF 

RECORD 



Figure 5. Ordinary Fortran Record 



TRA ADDRESS 



LOAD ADDRESS 



LOCATION 17 




TRANSFER TO THIS 

ADDRESS AFTER THE 

RECORD IS READ. 




STORE RECORD PROPER 

BEGINNING AT THIS 

ADDRESS 



DECREMENT 17 21 

Figure 6. Record Control Word 



ADDRESS 



After record 67 is loaded, a search through the library, file 3, follows to incorpo- 
rate any library functions into the compilation. When this search is completed, the 
system tape is rewound and the first two records of file 1 are skipped. Records 2 
through 7 are loaded and executed. These six records comprise Section 6 of the 
Fortran program. At this point the Fortran run is complete. This arrangement of 
the program into records on tape requires a program within the machine that allows 
the next record to be read when it is signaled that the previous record is completed. 
This program is called 1-CS and is described in detail in the following section. 

1. 04. 03 1-CS (Tape 1 to Core Storage Program) 

It is important from a service standpoint for the customer engineer to understand 
the 1-CS self loading program. This short program is relatively simple but it is the 
key program in monitoring the progression of the Fortran translator. With a knowledge 
of the loader the customer engineer can better determine which record of the trans- 
lator is failing. A listing or a map of the translator will have to be used by the 
customer engineer to isolate the subroutine of the record that is giving trouble. 

Figure 7 is a block diagram representing the loading of 1-CS into storage. After 
the load-button sequence and bootstrap, the tape record monitor is loaded in des- 
cending sequence from locations 27 to 4. The COPY instruction at location 1 and 
the TXI at location 2 accomplish this loading. The copy loop stores COPY 3 at 3 and 
LTM at 2. The LTM is performed and the COPY 3 stores BST at location 3. The 
program control enters the monitor proper at location 4. Figure 8 shows the oper- 
ation of the monitor in block diagram form. 

1. 04. 04 The Tape Record Monitor 

The program in storage from 4 through 27 reads in, sequentially, all the records of 
the systems tape (tape 1). The records are check sum and redundancy checked. If 
no errors exist, the program proceeds into the record that has read in. The check 
sum, which is the first word of each tape record, is stored at location 2. The 
record control word, which is the second word on tape, is stored at location 17. The 
record control word's address is the address used to store the first instruction 
(third word) of the record currently being read in. The record control word's de- 
crement is the location of the first instruction to be executed after the current re- 
cord is read in. These are not relative addresses but absolute locations. Refer to 
Figure 8. 
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1. 04. 05 Listing of 1-CS on Tape 

The following listing of 1-CS shows the instruction 
sequence on tape and the locations where the instruc- 
tions are stored. 



c 


Sequence 


Storage 






Address, Tag, 


On Tape 


Locations 


Operation 


Decrement 


. 










LXA 


0,1 


c 


1 


1 (originally) 


CPY 


2,1 


2 


2 (originally) 


TXI 


1,1,1 


. 


3 


1 




CPY 


31,1 


c 


4 


27 




HTR 


3 


5 


26 




TZE 







6 


25 




COM 


6 


c 


7 


24 




ACL 


2 


10 


23 




COM 


6 




11 


22 




TRA 


27 


c 


12 


21 




RTT 


12 


13 


20 




WRS 


333 




14 


17 




HTR 





o 


15 


16 




TXI 


15,1,77777 


16 


15 




CAD 


0,1 




17 


14 




CAL 


17 


c 


20 


13 




STA 


26 


21 


12 




ARS 


22 




22 


11 




STA 


15 


G 


23 


10 




CAL 


17 


24 


7 




CPY 


17 




25 


6 




CPY 


2 


C 


26 


5 




RDS 


221 


27 


4 




LXD 


27,1 




30 


3 (originally) 


CPY 


3 


C 


31 


2 




LTM 


7 


32 


3 




BST 


221 





t-OAD 

TAPE 

BUTTON 








" 








BOOTSTRAP 






if 




WITH COPY AT LOC, 1, 

LOAD NEXT 20 WORDS 

INTO 27 THROUGH 4. 




> ' 






PUT COPY 3 
INTO 

LOC, 3 






i' 






TXI TO 4. 

PUT LTM 
INTO 2 








i ' 








LTM AT 2 








■> 


' 








PUT BST 221 

INTO 

LOC, 3 






> 


' 




AT LOCATION 4 ENTER 
PROGRAM MONITOR OF 
TRANSLATOR RECORDS 




> 


' 






TO 

FIGURE 

8 





Figure 7. 
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STOP AT 27 
UNMATCHED 
BITS IN ACC 



FIGURE 7 



LOAD 
TAPE 
SEQUENCE 



READ NEXT 

RECORD 

FROM TAPE 1 



LEAVE TAPE 
READ VIA 
EOR SKIP 



DELAY 

PROGRAM UNTIL 

TAPE STOPS 



STOP AT 27 






WITH ENTIRE 




NG 


CHECK SUM 






IN ACC 









Figure 8. 1-CS, Tape Record Monitor 



EXECUTE 
INSTRUCTIONS 
IN THIS RECORD 




TRANSFER TO 

LOCATION 

SPECIFIED IN 

DECREMENT OF 

LOCATION 17 



3 
3 
3 

3 
3 
3 
3 



3 
3 



3 

3 
3 
3 
3 
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1. 04. 06 Listing of 1-CS in Storage 

The original boot-strap loading loop in locations 1,2, 3 is wiped out by the self- 
loading 1-CS. After loading, the program is located in core storage as follows: 



LOCATION 


OPERATION 





LXA 


1 


CPY 


2 


LTM 


3 


BSt 


4 


LXD 


5 


RDS 


6 


CPY 


7 


CPY 


10 


CAL 


11 


STA 


12 


ARS 


13 


STA 


14 


CAL 


15 


CAD 


16 


TXI 


17 


HTR 


20 


WRS 


21 


RTT 


22 


TRA 


23 


COM 


24 


ACL 


25 


COM 


26 


TZE 



27 



HTR 



ADDRESS TAG, 




DECREMENT 


COMMENT 


0,1 


Zero to XRA initially 


31,1 

7 

221 


Loads most of 1-CS 


Backspace to reread record 


27,1 


Clear XRA before reading 




next record of Fortran 


221 


Read next record 


2 


Check sum of record 2 


17 


Control word 17 


17 


Control word Ace 


15 


Where record is to begin in 




storage 


22 


DECRE Acc — " ADR Acc 


26 




17 


Again control word Ace 




to start computing check 




sum 


0, 1 


Copy record &. compute check 




sum 


15,1,77777 


Repeat & store record in con- 




secutive ascending 




addresses 




Control word location 


333 


Write delay 



12 
27 
6 
2 



Test for redundancy error 
Recognize redundancy error 
Check sum in Ace 
Bring in transmitted check 
sum to be compared 

Check sum OK, go to TRA 

address 
Read error 



C 

c 
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In the example of the previous paragraph, the relative address in the listing of 
the RDS .... 32 1 instruction is : 



R.A. = 335 - 110 + 2 = 227 

The corresponding listing of records on the Fortran II Systems tape is given in 
Table II. It follows the same general organization as the information in Table I 
for Fortran I. 



1.05.00 UPDATING THE EDIT DECK 

Additions, deletions, and changes in the list of library functions can be made by 
means of the Fortran librarian, FNLIB 1. Each time the librarian is used it re- 
writes completely the list of functions; hence it should be followed by all the routines 
which the system is to contain. 
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3 
3 
3 
3 
3 
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1. 04. 07 Control Words of 1-CS Monitor 

Table I shows a listing of all the control words used by the monitor. An under- 
standing of this listing will give you access to the area of Fortran that is causing an 
error stop. The control word for the record currently in process is stored in 
location 17. Suppose, for example, that the machine stopped at an unlisted stop 
during the Fortran run. A display of location 17 showed a decrement of 335 and an 
address of 110. In Table I you will find that all the control words are unique and 
that the one in this example indicates the stop occurred during the run of Section 1, 
while record 1 of the first file on the tape was being run. Also indicated in the 
listing is the first instruction stored in this record (REW. . .222). Notice that this 
is not the first instruction executed in this record. The first instruction executed in 
this record is located at the address indicated by the decrement of storage location 
17. In the present example this is an RDS. ... 321 instruction located at 335. With a 
dump or listing of the Fortran tape you should be able to follow the sequence of 
instructions from that starting point. The last column in the list indicates the high 
order storage location used in the storing of the current record. Notice that the 
load address and last address of the records indicate that during the assembly many 
core storage locations are rewritten many times. For instance, records 11 and 12 ~~\ 

of Section 1 are both stored starting at 3440 and ending above the 50000 area. This -^ 

may make tracing difficult where only portions of a previous record are erased in 
order to store the shorter current record. ~"\ 

On a listing of the Fortran system tape you may have difficulty locating the 
first executed record if you do not know the organization of the list. Most lists of ~^ 

tape records indicate the order of full 704 words in the record starting with zero. ^ 

Recall that the "zeroth" word in the record is the record check sum and the "first" 

word is the control word that is stored in location 17. The first ordinary word of the ~3 

record proper is the "second" word. Since the order of instructions is relative to a 
starting point of zero, how do you find in the listing, the first executed instruction 

whose absolute location is 335? To find the relative address in the list use the j 

following formula: 

Relative Address = decrement of 17 - address of 17 + 2 ) 

3 
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Each routine consists of one or more control cards, followed by the routine 
proper on relocatable binary cards. The routine proper must meet the specifications 
given on page 40 of Form 32-7026. 

The control cards are punched as if for loading by NYBL1. The loading address 
(9L address) must be zero, and the check sum must be given. The first control 
card has in its 8L address the number of locations occupied by the subroutine, and 
in its 8R address the 2's complement of n, where n is the length of the common 
storage region used by the routine. Succeeding rows have in the left word a function 
name (without the terminal F) followed if there is room by a blank character and 
zeros in internal 704 BCD with the significant characters packed to the left, and 
in the address of the right word the corresponding entry point into the routine, 
relative to zero. For example, the control card for the UASC — 1 routine, which 
can calculate either cosine or sine by entering at relocatable or 1, has COSbOO and 
in its 7's row and SINbOO and 1 in its 6's row. If there are too many function 
names to fit on a, single control card, they may be continued on additional control 
cards. On these additional cards do not repeat the information given in the 8's row 
of the first control card. 

The entry point which will cause the specifications for a library routine to be 
met can be given a function name (or several names if desired). Such names can be 
distinguished as primary or secondary names by not prefixing, or prefixing, the 
entry point with a minus sign (punch in column 37 of the appropriate row of the 
control card). The meaning of primary and secondary arises from the following 
rule of precedence which is used by the Fortran system in compiling library routines 
into the object program. 

RULE. When a function is mentioned in a source program, the routine which will 
be used is the first routine on the system tape which meets either of the following 
conditions: (1) the name mentioned is a primary name of the routine; or (2) the 
name mentioned is a secondary name of the routine, and at least one of the primary 
names of the routine is also mentioned. (If no such routine exists, the universal 
empty routine HTR 1, 4 is compiled). 

If the system tape is arranged with the routines which have many secondary 
names preceding the routines with few or none, this rule will prevent unnecessary 
duplication of routines in the object program. Suppose, for example, that the 
system tape contains an arc sine routine which also has an entry point which will com- 
pute a square root, and that this routine is given two names, ASINF (primary) and 
SQRTF (secondary). Suppose also that later on the tape is an ordinary square 
root routine with the single name SQRTF (primary). Then a source program which 
asks for both ASINF and SQRTF will cause compilation of the former program only. 

In addition to the updating of the edit deck, your listing in this manual of the 
records on the master tape should be maintained up to date. In order to do this 
properly you must have three documents: 

1. The memorandum describing the change. 

2. The deck of cards which produce the correction. 

3. Either a dump or SAP listing of FORTRAN. 
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Referring to Table I, the following items are required: 
Required Information Where Found 



Record number 
Description of record 
Transfer address 
Load address 
Last address 
Contents of transfer word 
Contents of load word 
Section No. 



First three digits of *000 correction card 
Usually not changed 
8L decrement of 000 correction card 
8L address of 000 correction card 
8R address of 000 correction card 
SAP listing or dump of Fortran 
SAP listing or dump of Fortran 
Memorandum 



D 
3 
O 
O 
D 
O 



*The 000 correction card is the first card in the correction deck; the three 
zeros are the last three digits of the card number. 

1. 06. 00 FORTRAN TAPE ASSIGNMENT 

Figures 9 and 10 represent the contents of the tapes in Fortran processing. They 
indicate the contents of all four tapes at the end of each of the six sections. With the 
exception of the first four records of file 5, tape 2, the assignment of tapes is 
identical in all Fortran modes. (Fortran I processing does not develop these four 
records.) 

1. 07. 00 RELATING TAPE ASSIGNMENT IN FORTRAN I AND II TO FORTRAN 709 

Fortran I and Fortran II utilize the first four tapes identically. Fortran II, how- 
ever, uses additional tape units 5, 6 and 7. They have the following function 
during batch compiling: 

Tape 5: The programs to be batch compiled are recorded on tape, separated 
by END statements. If the input is card on-line, all card information 
is transmitted to tape 5. If the input is off-line, tape 5 is used as 
the off-line input. 

Tape 6: This becomes the output tape for batch compiling. All source 

programs in Fortran language, storage maps and SAP mnemonic 
outputs appear on this tape. This tape receives the output infor- 
mation for all object programs that previously were consigned to tape 2. 

Tape 7: This tape recovers the binary object programs of the batch-compiled 
source programs. This is, in Fortran I, the responsibility of tape 3. 
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c 
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Sect. 


File 


File 


File 


File 


File 


File 


File 


File 


File 


File 


No. 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


1' 


SOURCE 
PROGRAM 

(BCD) 
All others 
in Binary 

EOF 


COMPAIL 
EOF 


COMPAIL 

RECORD 

COUNT 

and 
FORSUB(l) 

EOF 


FLOCON 
FORMAT 
SIZE 

EOF 


10 END 

11 SUBDEF(l) 

12 COMMON 
13HOLARG 

TEIFNO 

2 TIFGO 

3 TRAD 

1 TDO 

6 FORVAL 
5 FORVAR 

4 FORTAG 

7 FRET 

8 EQUIT 

9 CLOSUB 
EOF (3) 


| Not 
in 
Fortran I 






















DOTAGB 


DOTAGB 


DO FILE C 


DO FILE C 




2 












EOF 


Rec. Count 
EOF 




RECORD 
COUNT 




















ASSIGN 


FIXCON 




3 
















CONSTANT 
EOF 


EOF 




4 










































ASSIGN 


5 




















CONSTANT 
EOF 


5» 






















6 























Notes: (1) If no entries exist, no identification exists either. (2) Also includes new FUNCTION statement, 
label number of the tape tables . 

FIGURE 9. FORTRAN TAPE 2 



(3) Identification 



c 



c 

c 



End of 
Section 


Fortran Tape 3 


Fortran Tape 4 


File 1 


File 2 


File 3 


File 4 


File 1 


File 2 


1 










Tape Table 
Entries 




1' 


1. Non Exc. 

2. T Stops 












2 










TRALEN 


COMPDO 


3 










CIT's 
100 WDS/REC 


Closed 
Subroutines 


4 


CIT's from Sec. 3 
(erased) 


EMPTY 


Tag List 
? 5 WR/REC 


BB List 


CIT's 


Closed 
Subroutines 


5 


CIT's 












5' 


CIT's 












Pre -6 










CIT's 




6 


Binary Output 













FIGURE 10. FORTRAN 709 
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Figure 11. Sample Source Statement Card 



3 
3 



Fortran n 


709 Fortran 


4 


A4 


5 


A2 


6 


A3 


7 


B4 



Symbolic Name* 

STAPE4 
STAPE5 
STAPE6 
STAPE7 



♦This is the name used by the executive program in 
referring to tape in any one of the three Fortran modes. 

1. 08. 00 FORTRAN SOURCE PROGRAM CARD FORMAT 

Each statement of the Fortran Source Program is punched onto a separate card. 
If a single statement is too long to fit on a single card under the card layout system 
specified below, it may continue over as many as nine continuation cards. 

A properly punched Fortran 709 source statement card is shown in Figure 11. 



IF THIS CARD CONTAINS 

A SOURCE PROGRAM 

COMMENT ONLY, A C IS 

PUNCHED IN COLUMN I. 



THE STATEMENT IS 

PUNCHED IN 

COLUMNS 7-72 



91999 9 

1 |2 3 4 5 



FORTRAN STATEMENT 

SAMPLE Y(l)=A*x(l) + B 

000000000000000000000000000000000000000000000000000000000000000000 

7 > 9 10 II 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 3! 32 33 34 35 36 37 38 39 40 « 42 43 44 45 46 47 48 49 50 51 52 53 54 55 96 57 51 99 60 61 62 63 64 65 66 67 68 69 70 71 72 
111111111111111111111111111111111111111111111111111111111111111111 

222222222222222222222222222222222222222222222222222222222222222222 
3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 
444444444444444444444444444444444444444444444444444444444444444444 
55 3 5 55 55555555 55 55 5555555555555555555555555555555555555 55 555555 55 5 

6 6 6 6 6 66666 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 8 6 6 6 6 6 6 6 6 6 B 6 6 6 6 G 6 6 6 
77 77 777777 77777777777777777777777777777777777777777777777777777777 
88 88 8 8 88888888 8888888888888888888888888888888888888888888888888888 
999999999999999999999999999999999999999999999999999999999999999999 

7 8 9 10 II 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 3b 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 7W2 



IDENTI- 
FICATION 

00000000 

73 74 75 76 77 78 79 80 
11111111 

22222222 
33333333 
44444444 
55555555 
66666666 
77777777 
88888888 
99999999 

73 74 75 76 77 78 79 8a 



THE STATEMENT 

NUMBER, WHICH 

MUST NOT EXCEED 

32767, IS PUNCHED 

IN COLUMNS 1-5 



IF THIS IS A CON- 
TINUATION CARD . A 
CHARACTER OTHER 
THAN ZERO IS 
PUNCHED IN 
COLUMN 6 



IF THE STATEMENT 
HAS NOT BEEN 
COMPLETELY 
PUNCHED AFTER 
COLUMN 72, IT 
MUST BE CON- 
TINUED ON A 
CONTINUATION 
CARD 



COLUMNS 73-80 ARE 

IGNORED BY 
FORTRAN AND ARE 
AVAILABLE FOR 

SOURCE CARD 
IDENTIFICATION. 
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3 
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3 
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3 
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3 
3 
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1. 09. GO USING THE FORTRAN SYSTEM TAPE 



Set the system tape to logical 1, and set two machine tapes to logical 3 and 4. If 
C operating with off-line input, set the input tape (bearing the source program as the 

first file) to logical 2; otherwise set a machine tape to logical 2. 

C At the 704 card reader, load the one-card Fortran system caller FNSC1, followed 

(if the input is on-line) by the source program deck. Do not use extra blank cards. 

C (If tape 1 is known to be rewound, FNSC1 is not necessary. With off-line input, 

simply press LOAD TAPE and, when the card reader is selected, press 
* START on the card reader. With on-line input, ready the source program in the 

( card reader and press LOAD TAPE. ) 

Place the SHARE printer board 2 in the 704 printer. Set the sense switches as 
(^ follows: 

s~ Switch 1. UP to obtain the object program as a binary tape (tape 4) 

V__ and as a deck of binary cards. 

DOWN to obtain binary tape (tape 4) only. 

\_ Switch 2. UP to produce on tape 2 two files containing the source program 

and a map of object program storage. 
/"-■ DOWN to add a third file to tape 2, containing the object program 

V_ in the language of the forthcoming modified SHARE symbolic 

assembly program. 

v_--' Switch 3. DOWN to list on-line the first two or three files of tape 2, de- 

pending upon whether switch 2 is up or down. 

r 

^ Switch 4. Up or DOWN to cause on-line listing to be single or double- 

spaced. 

r 

v —-' The program ends by executing a load button sequence to the card reader. If 

the card reader is not ready, the machine will hang up at location 7777 5g; if it is 
f~~~ ready but empty the machine will stop at 77777 g . 

1. 10. 00 RUNNING THE OBJECT PROGRAM 

r 

The binary deck that is produced when switch 1 is up consists of the object 
program in relocatable binary, together with the four-card Fortran relocating 
loader UA CSB3 and appropriate control card and transfer card. The binary deck 
is thus ready for immediate loading and execution. For further details see the forth- 
coming SHARE write-up for UA CSB3. 

Details about using the binary tape form of the object program will be announced 
later. 

The printer board to be used with Fortran object program is SHARE 2. 

There are nine standard error stops in object level input-output routines. 
They are to be recognized not by looking at the instruction counter but by looking at 
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the HPR instruction itself in the storage register. 

HPR 0,0 End of file in reading binary tape. Press START 

to resume reading next file. -->. 

HPR 0, 1 End of file in reading cards or BCD tape. Press 

START to resume reading next file. ~~\ 

HPR 1, 1 Inappropriate character encountered in a data 

HPR 2, 1 field in reading cards or BCD tape. Pressing "^ 

HPR 3, 1 Start causes that character to be treated as a zero. ^ 

HPR 4,1 

o 

HPR 0,2 Non-Hollerith character encountered in reading card. — / 

Correct card, ready in card reader, and press START. 

HPR 0,3 Redundancy check in reading BCD tape. Press START — ' 

to accept information read. 

HPR 0,4 Echo check in printing. Press START to continue. Press 

RESET and START to repeat line, and continue. 

1. 11. 00 DESCRIPTION OF TAPE AND DRUM USAGE DURING A FORTRAN I RUN 



J 



With sytem tape rewound on tape drive 1 and the source program ready in the j 

card reader , hit the load tape button. The special first record on the system tape 
is stored in 0-27. The second record on the first file of the system tape is a 

card-to-tape simulator that puts the source program on tape 2 in BCD. If the J 

card reader is empty, this program is not executed since the source program is 
assumed to be on tape 2 already. In either case the EOF signal from the card 

reader causes the Fortran system tape to skip to the beginning of the second file. j 

The records in file 2 are executed sequentially. Each record is a program or part 
of a program. In some cases these records are copied to drum and used over 
again. 
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During the first section, tape 2 is read, using programs copied from tape and 
some stored temporarily on drum. All four logical drums are used. Tape 3 is 
also written during this section. Tables of information are written on drums and 
tape 4. At the end of this section, the tables from the drums and tape 4 are written 
as additional files on tape 2. If the programmer has made errors which the Fortran 
diagnostic can catch, these errors are printed on line at the end of Section 1. 

The second section processes table information from the drums and tape 2 
(additional files) and writes a new tape 4; it also writes tables on drums. 

The third section merges the tapes 3 and 4 using another file on tape 22 
intermediately, and finally prepares a tape 3. 

The fourth section examines this tape 3 and writes tables on drums and in 
core. 

The fifth section writes a tape 4, and tables on drums, then uses the tables 
from section 4 and tape 4 to write a new tape 3. 
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The last section takes the tables from the additional files on tape 2 and writes 
them on the drums, then, using these tables, writes the first part of the output 
storage map as -a new second file on tape 2. Next the first pass of a special assembly 
program is made over tape 3. Then a library search is made. The library is the 
third file on the Fortran tape. When this is finished the Fortran tape rewinds, spaces 
over the first two records on the first file, and makes the second pass of the assembly. 
The binary output from this assembly is written on tape 4. More of the storage map 
is written on tape 2. 

If sense switch 1 is up, contents of tape 4 are punched on line; if not, no punching 
takes place. 

If sense switch 2 is down, a third file is written on tape 2 (obtained by translating 
tape 3). This is the symbolic version of the "object" program. 

If sense switch 3 is down, tape 2 is rewound and printed on line. 

Finally all tapes (1,2, 3,4) are rewound and the load button sequence is executed. 
The words "end of diagnostic" are printed, tapes are rewound, and the 704 stops at 

17777. 

1.12.00 SERVICE AIDS 

To successfully run the Fortran translator the 704 must be in prime working 
order. The tape system in particular, and the drum are given a good work-out 
during the execution of the program. The following items are listed to assist you in 
analyzing troubles. 

1. Mechanical adjustment of 727 's is very critical as far as tape creep goes. 
Creep can be recognized by observing a mark on tape (e.g. , load point during a 
multiple write -backspace -write operation. The tape should tend to creep forward 
(i. e. , lengthening the inter-record gap). Care must be taken on 704 systems to 
keep this forward creep to a point where 20 to 25 passes are possible before the 
gap becomes too large. The customer is allowed to program up to ten passes. 

2. When using Model I 727's the belt tension for capstans must be correct. 
Refer to page 55 of 727 Customer Engineering Manual of Instruction (Form 223-6681). 

3. Tape operation may be improved by installing the capstan drive shaft change, 
E.C. 242797, B/M 561995, on a Model II 727. 

4. The recovery time of the "write load point delay SS-753" has given trouble. 
Refer to CEM 803 for correction. 

5. If you have installed B/M 562270, note: 

1. Item 4 of CEM 787. 

2. CEM 815. 

These modifications eliminate the necking down of the start envelope that appeared 
about 12 ms after go. 
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6. Noisy pre -amps have caused record trouble on Fortran and the SHARE assembly 
program. Refer to CEM 234; recommended frequency is two weeks if trouble has been 
encountered. 

7. A 100 uu capacitor must be connected from the output of AND circuit E to 
ground on Systems 5. 11.05 to prevent errors on "read printer." E.G. 243552 adds 
this capacitor (704). 

8. E. C. 242469 must be installed to prevent drum LDA trouble on Fortran. 
During the installation of E.C. 242469, wires may have been left out from MF 1-617-1 
to MF 1-G29-1 and from MF 1-F30-2 to MF 1-G29-2. Check your machine. 

Keep in mind that some of the stops recorded in operator's manuals are mislead- 
ing in their explanations. It is possible that a drum check sum error may be in- 
dicated by the listing but the actual trouble may be due to tape creep. Some stops are 
ambiguous in this respect. Make sure you have the latest listing of error stops to 
obtain the greatest assistance in analyzing machine operation and stops. 

1. 13. 00 FORTRAN II REFINEMENTS 



A variety of routines that are helpful in debugging object programs during execution 
can be added to the library of Fortran. The routines can be included in the object 
program during translation by making use of the improved subroutine facilities added 
to Fortran II. These new facilities are provided by six new statements that are added to 
the Fortran language. 

1. 14. 00 ANSWERS TO COMMON GENERAL QUESTIONS INVOLVING FORTRAN 

1. Why is Fortran used and what are its advantages over the SHARE assembly 
program ? 

Fortran allows a programmer to write in relatively familiar and simple language 
the steps of a procedure to be carried out by the 704. The programmer need 
not know 704 language, and is relieved of clerical work; human error is 
minimized. The programmer writes in symbolic machine language in SHARE. 
Fortran translates, compiles, and assembles, whereas a SHARE assembly 
program essentially just assembles, although subroutines can be compiled from 
the library tape of SHARE. 
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From a user's standpoint, there are generally two areas where the present 
Fortran system needs improvement. First of all, the system requires improved ~^ 

facilities for debugging source programs. Secondly, it needs better facilities for ^ 

creating and using subroutines. An improved version of the system called Fortran II 
will contain improvements in these areas. This version is to be available in the not too j 

distant future. 

The main improvement contemplated as far as debugging is concerned, is the in- ) 

corporation of a general and expandable diagnostic procedure in the translator. This 
procedure is designed to find and print a description of every detectable error in a 

source program. Thus, stops in translation will be eliminated or reduced to a mini- j 

mum. The description of the failure will be documented in such a way as to eliminate 
ambiguity. The print-outs will include useful information in locating trouble and will 
be a definite aid to the customer engineer as well as the customer. J 
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r~ 2 - Can Fortran be used for logical problems as well as mathematical problems? 

Fortran is essentially designed for mathematical problems. It can be used for 
r~ logical problems. However, it wouldn't be as efficient in input/output as a 

v_ manually coded program. 

f~" ■. 3« What are the minimum machine requirements for using Fortran? Can the 

^- library routines used during the translation be contained on more than one tape? 

(~ Fortran will run on the minimum 704 defined by the SHARE organization: Single 

^ 737, 733, four tape units, floating point, and the Copy Add and Carry Logical 

word instruction. There are variations of Fortran for 704's with larger core 
f storage with or without a drum. As Fortran now stands, any library routines 

to be used during translation must be included in file 3 of the Fortran system 

tape. 

4. What size of program will it write and how can it be determined whether the 
object program is too large for the particular 704 system? 

There is no definite limit as to the size of an object program that can be 
written by the Fortran system. It is possible to exceed the capacity of a 32k 
core storage. It is not too difficult, therefore, to write a program that will 
exceed 4k storage. This is an aspect of Fortran that is bothersome. The size 
of the object program can be estimated by a method described on page 60 of 
Form 32-0306. Other limits regarding the size of the source program are given 
on page 44 of Form 32-7026. 

5. What does the 704 system do during each of the six phases or sections? Which 
tapes are used? 

The general description of the six sections of the Fortran translator are in- 
cluded in Section 1. 11. 00 of this manual. An explanation of the machine opera- 
tion during the six different phases is simmarized in Section 3. There may be 
an exception but generally all four tapes are used in every section. 

6. How are the Fortran statements translated into 704 language? Does each 
statement set up a standaridzed loop? 

A brief description of the Fortran translation is contained in Section 1.02.00. 
In general, each subroutine of the output program has been constructed, in- 
struction by instruction, so as to produce an efficient program. In addition 
each subroutine is constructed to fit efficiently with adjacent subroutines and 
the over-all program. Fortran written programs seldom contain sequences of 
even three instructions whose operation parts alone could be considered a 
precoded "skeleton. " 

7. How can the program be restarted after an unlisted stop? 

There is no convenient restart point for running Fortran after an unlisted stop. 
Essentially, it means starting over at the beginning. If all the source program 
( has been read from cards successfully, then the cards do not have to be reread. 

The source program will already be on tape 2 in BCD. The starting procedure 
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is the same as if the source program were put on tape 2 after being prepared 
on off-line equipment. 

8. Can the 704 be put into an error loop so that the cause of machine trouble can 
be located? 

No, there are no facilities in Fortran that permit looping on an error condition. 
It is possible, by altering the program manually, to accomplish this, but it 
would be time consuming. It may be necessary in some instances. 

9. What do each of the 32 Fortran statements accomplish and how are they used? 

The Fortran language is completely covered in Form 32-7026. It is recom- 
mended that the beginner start with Form 32-0306 which provides a very 
sound introduction to the Fortran language. 

10. How would an operator go about running the object program? 

The complete details regarding tapes, sense switches, cards, and so on, 
related to running the Fortran program or the object program, are 
in Section 1. 09. 00 of this manual. 
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2 . 00. 00 GENERAL FORTRAN-RECORD STRUCTURE 

THE TWO PRINCIPAL forms that the object-source program takes in its examination 
by the translator are CIT's (compiled instruction tables) and tables. Both forms are 
described in detail in the Section 3.00.00. 

There is common information which should help in integrating the tables. For 
instance, file 5 of tape 2 contains many tables. The first word of all these tables is 
a label number which is used in Section 1' to merge together all common information. 
The second word in the records of this file is a count of the number of words in the 
record. 

Fortran I does not have any of the first four records of file 5, tape 2 of Fortran II 
and Fortran 709. Therefore, the record number of a record in Fortran II will be 
four more than the corresponding number in Fortran I. 

Any reference to storage on drums implies the use of either Fortran I or II. If 709 
Fortran is under consideration, upper core storage will be used in place of the drum. 

2.01.00 CALLFN RECORD 

The CALLFN record is a table of IFN's presented in CALL statements. (See page 
16-18 of Form C28-6000 for a full explanation of the CALL statement). Each entry 
into the table requires only one full word. The decrement of the word contains the 
IFN of the first variable in the CALL statement; the address contains the IFN of the 
last variable in the CALL statement. 

2.02.00 CLOSUB RECORD 

The CLOSUB record is a table of closed routines called for in the source program. 
The entry is made for each library subroutine called for in the source program. The 
entry is the BCD representation of the names of these closed subroutines and demands 
only one word of storage because six BCD characters are sufficient to hold any of the 
names of the closed subroutines. (See page 8 of Form 32-0306.) 

The table entry is SQRTF for the following statement: 

ROOT = (-B SQRTF (B**2. - 4. * A*C) ) / (2* A) 

The CLOSUB table is stored during the run of Section 1' on tape 2, file 5, record 
14 in Fortran II and 709 or record 10 of the same tape in Fortran 1. The first word 
of the first record is the label number, 9. The second word is a count of the number 
of words in the CLOSUB table. 

2. 03. 00 COMPILED INSTRUCTION TABLES 

By the end of Section 3, the object program is completely compiled in symbolic form 
(with the exception of library subroutines). The compiled instructions, and later all 
constants, must be placed in a table which is translatable by the compiler that is the 
major porition of Section 6. Ultimately most source information must appear in a 
compiled instruction table (CIT). 
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Notice that several CIT's are stored on tape during the run of the executive routine. 
There is only one standard four -word format for CIT's: 



Decrement 



Address 



(IFN) 

Internal formula No. 


Instruction number 
within formula number 


Operation code of Instr. 
in SAP mnemonic 


Decrement of Type A 
instruction 


Symbolic address (BCD) assigned by executive 

routine 


* 


Symbolic tag 



Word 1 
Word 2 
Word 3 
Word 4 



* Decrement of Word 4: 

Fortran I - The subscript, if any, of the symbolic address. 
Fortran II and 709 - Relative absolute part of address of the 
instruction; for example, in 

CLA N + 3 
The + 3 would be entered into this field. 

The decrement of word 1 contains the IFN of the statement from which the 
instruction was generated. The address of word I indicates the number of the in- 
struction generated as a result of the statement. It would contain four if the table 
entry were the fourth instruction necessary to carry out the original Fortran state- 
ment. 

The decrement of word 2 contains a BCD mnemonic representation of the instruc- 
tion for which this entry is made (e.g. , CLA, OCT). From this entry the reader can 
appreciate the sophistication of the Fortran translator; the executive program has 
written a symbolic instruction which will be subsequently assembled by an assembly 
program similar to USAP 1 and 2. The address of word 2 contains, if any, the 
decrement of a type A instruction. 

Word 3 contains a BCD representation of the symbolic address assigned to the 
instruction by the executive routine. As in coding by hand, the executive routine 
uses symbolic addressing in writing its instructions in symbolic form. It is interest- 
ing to note that the symbols used by the machine have no mnemonic value to the human 
reader but of course a one-bit difference in configuration is accurate enough dis- 
crimination for the machine. A typical sumbolic address is ) 84! 

The decrement of word 4 is explained in the footnote under the preceding diagram. 
The address of word 4 contains the symbolic tag of the FORTAG table for this 
instruction. 

The COMPAIL file, the second file on tape 2, is a typical CIT table. 

2.04.00 COMMON RECORD 

Normally data and instructions are compiled adjacent to each other in order to 
preserve high- order storage cells. 
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The COMMON statement in FORTRAN II permits the programmer to assign 
specific core storage areas to the storage of data. The COMMON statement is of the 
following form: COMMON X, ANGLE, MATA, MATB 

The items listed after COMMON statements will be assigned to core storage 
starting at location 774628. Entire arrays may be shifted to high-order storage 
through the use of the COMMON statement. (See pages 20-22 of Form C28-6000.) 

The COMMON record is a compilation of all COMMON statements and is re- 
corded on 2, file 5, record 3 during the run of Fortran II. It is generated during the 
run of Section l r . The first word of this record is the label number, twelve. The 
second word is a count of the number of words in the COMMON record. 

Each entry into the table demands as many words as there are items following the 
word "common". For example, the COMMON statement 

COMMON X, ANGLE, MATA, MATB 
requires the use of four full words and is recorded in the following format in BCD: 



c 



Word 1 
Word 2 
Word 3 
Word 4 













X 




A 


N 


G 


L 


E 






M 


A 


T 


A 






M 


A 


T 


B 



2.05.00 DIM RECORD 



c 
c 



The DIM record is generated during the arithmetic processing in Section 1, as a 
result of encountering DIMENSION statements, and is recorded on drums. Recall 
that the DIMENSION statement consists of a list of variables with an integer in 
parentheses following the variables. Integer represents the greatest number of 
elements in an array. (See pages 28 and 47 of Form 32-03061.) During Section 1' 
the DIM table is converted to the SIZE table. 

The DIMENSION statement is not executed (no instructions will appear in the object 
program for this statement) but will preserve blocks of storage for subscripted 
variables. The entry into the DIM table will occupy three words for one or two 
dimensions and four words for three dimensions. The entries are made according 
to the following format: 



One -dimensional array: (Example: DIM A (7)) 



c 

c 
c 
c 



Decrement 


Address 


A 






7 


A 


+7 



Word 1 
Word 2 
Word 3 



Two-dimensional array (Example: DIM A (7, 12) 



Word 1 
Word 2 
Word 3 



Decrement 


Address 


A 




7 


12 


A + 7 


+ 12 



Subscripted variable 

Dimension 

Check sum of entry 



Subscripted variable 
Dimensions 1 & 2 
Check sum of entry 
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Three-dimensional array: Example: DIM A (7, 12, 6) 



Word 2 
Word 2 
Word 3 
Word 4 



Decrement 


Address 


A 




7 


12 




6 


A+ 7 


+ 12+6 



Subscripted variable 
Dimension 1 & 2 
Dimension 3 
Check sum of entry 



2.06.00 DOT AG B FORMAT 



This is the first record of file 6 on tape 2, with all Fortran modes. The DOTAG B 
table is the result of an analysis of priority of interlocking DO statements (nests). In 
this analysis an entry is made into the DOTAG table for every entry of the TDO table. 
The DOTAG B table is a collection of nine-word records. The first five records are 
identical to the corresponding entry in the TDO table. The last four records are a 
result of the analysis of the nests of DO statements. The last four records take on 
the following format: (for description of ni, n2, n^ f see Section 2.22.00). 



Word 6: 



Word 7; 



Decrement 
Address 



evel number (described in Section 3.00.00). 



(n 9 - n L +n 



l 3k 



n 3 



n 3 (Only the integral part of the term in 
brackets is multiplied by n3). 



Decrement 
Address 



Word 8: Decrement 



Word 9: 



An integer representing level ~ 0. 
Level of definition of n^ 

The bits in the field indicate to which level control will 
pass from this DO statement. (I.e. , a bit in 7 indicates 
that control will pass to the seventh level from the 
current DO. ) Control will always pass to a lower level 
from current level. 
Level of definition of n 2 . 

Test table number: A quantity to be entered into the 

indexing routine which optimized XR's. 

Symbolic tag to which reference is made with the test 

table number. 

Level, of definition of n2. 

For example, given the same DO statements as described in the TDO table format 
(5 DO 8 1=1. 26, 2): 



Word 6 
Word 7 
Word 8 
Word 9 



Address 


1 - 


5 


6 - 


19 


20 - 


35 



Decrement 


Address 


1 (first DO in nest) 


26 


4 


Level of definition of n-| 




Level of definition of n2 


Test 
Table No. 


Symbolic 
Tag 


Level of definition of ng 



o 

D 

J 
D 



n l = 1; n 2 = ^' n 3 = ^ 

n 2 - n x + n 3 = 26 - 1 + 2 = 27 = 13-1/2 
njj 2 ~2~ 



I) 

D 
3 
D 
D 
J 
D 
D 
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Use only integral part of previous calculation (13). Address of word 6 = 

13 x n 3 = 13 x 2 = 26 



2.07.00 THE END RECORD 

The END statement permits batch compiling. Several programs can be compiled 
with one pass of the Fortran translator provided an END statement separates the 
various symbolic programs. If only one program is being compiled, there is no need 
to include an END statement, although an END record is generated with five "2" 
entries as described below. 

The END statement permits the programmer to use separate sense switch control 
for each of his programs. The specifications for use of the END statement are on 
page 22 of Form C28-6000. Briefly stated, the 0,1, or 2 designation following the 
END indicate: 

= Ignore the sense switch and assume it is up. 

1 = Ignore the sense switch and assume it is down. 

2 = Interrogate the sense switch. 

For example: END (2, 2, 2, 0, 1). This statement indicates: 
Interrogate SS 1, 2, and 3. 
Ignore SS 4 and assume it is up. 
Ignore SS 5 and assume it is down. 

The END statement takes precedence over the sense switch settings if the and 1 
codes are used. 

In addition to sense switch control, the END statement simulates an end-of-file 
condition on card reader or tape and permits passage of I-O control from one program 
to the next. 

The END record is always generated, whether an END card is used or not. During 
1' the END record is recorded on tape 2, file 5, record 1. (Of course, there is no 
such entry in Fortran I, because it does not contain the END facility.) The END 
record on file 5, is the only record in this file not to have a label number. 

The END entry is always a five-word record. The 0, 1, or 2 designation is stored 
in the addresses of these five words (in binary). 

For example, END (2, 2, 2, 0, 1) appears in the END record as: 

Word 1 



Word 2 
Word 3 
Word 4 
Word 5 



000 



010 



000 



010 



000 



010 



000 



000 



000 



001 
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The EQUIVALENCE statement permits the programmer to equate the names of 
several different quantities, or to assign the same storage location to several different _^ 

variables. (See page 36, Form C28-6000.) .J 



For example: EQUIVALENCE (A,B,C (5)) 

This statement says that location A, location B and the fourth location after C 
(the fifth location including C) are identical. In general A (P) is defined for P ^r 
and means the (P-l)th location after A or the beginning of the A array, that is the 
Pth location in the array. 



D 



The EQUIT record is a table containing all the information included in J 
EQUIVALENCE statements. Each item in the pairs of parentheses demands two full 

704-9 words for storage. A minus sign in the last entry indicates the end of a series — x 

of equivalent storage locations. \_J 



For example, the following entry would be made for the foregoing EQUIVALENCE 
statement: 

EQUIVALENCE (A, B (1), C (5) ) 



The Equit Entry 




A 


1 


B 


1 


C 


--^ 


5 



Word 1 
Word 2 
Word 3 
Word 4 
Word 5 

Word 6 

note minus sign^ 

The "1" entry in word 2 is entered automatically and is associated with A. The "1" 
entry is word 4 is the 1 in parenthesis after the B. The "5" entry in the word 6 is the 
5 following the C. 

The EQUIT record is generated during the run of Section 1' and is recorded on 
tape 2, file 5, record 13 during Fortran II and 709 or record 9 during Fortran I. j 

The first word in the first record is the table number, 8. The second word is a count 
of the number of entries into this table. 



D 
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D 
D 
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2.09.00 FKCON RECORD 



J 



The FKCON record is a table of fixed point constants specified by the program. ^J 
These constants are entered in fixed point form as data or are subsequently computed 

from other fixed point constants. These numbers, entered without decimal points — 

during READ statements and defined according to some FORMAT statement as fixed _J) 
point constants, are one of the types entered into the FKCON table. Numbers 

appearing as constants in statements of the form A = 3 + B are entries in the ^ -^ 

FKCON table; in this example "3" is an entry. _) 

The FKCON table is generated during Section 1 and is stored on drum in a two- -^ 

word format for each entry. It seems peculiar but it is necessary to the program J) 
control, that each entry consists of (1) the fixed point constant in binary and (2) the 
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check sum of that word. An entry for the fixed point constant 5 would appear as : 
Word 1 



000 0101 



Word 2 000 0101 



o 
c 

G 
G 
C 

G ' 
C " 
C 
C 
C 

The FLOCON table is stored on tape 2, file 4, the first record, and also on the 
C drum during the processing that occurs in Section 1. 



Word 2 is the check sum of word 1. 

In Section 3 the FKCON table becomes the only record of tape 2, file 9. 

2. 10. 00 FLOCON RECORD 

The FLOCON record is a table of floating point constants occurring in the source 
program. They may be entered from an input source such as cards or tape, computed 
from combinations of floating point constants , or appear as coefficients with decimal 
points in Fortran source statements. 

The FLOCON table is developed during Section I and is stored on the drum, in 
Fortran I, in the same format as the FIXCON table. That is, there are two words 
required for each entry, the first containing the floating point constant and the second 
the check sum of this one word, (In Fortran II and 709, this table is stored in 
high-order core storage.) 



2.11.00 FORMAT RECORD 



The FORMAT record is a table of arguments presented in FORMAT statements. 
The arguments are stored in BCD form in sequential storage locations. Since the 
( length of arguments is a variable, the number of words required to store all the 

argument must be variable. Each entry into the table is separated from succeeding 
entries by a word filled with bits. See Section 2. 16. 00. The format of the FORMAT 
entry is identical to that of the HOLARG entry. 



The Format record is generated during the processing of Section 1'. It is 
stored on tape 2, file 4, the second record. 

2. 12. 00 FORSUB RECORD 

The FORSUB record is a table of the subroutines described in the source program. 
This table has only one word per entry. An entry is made for each Fortran II 
statement headed by the subroutine statement. The entry itself is a BCD image of the 
function described in the subroutine statement. For example (page 31, Fortran 
Reference Manual): 

1. Subroutine MATMPY (A, N, M, B, L, C) 

The BCD image of MATMPY would be entered into the FORSUB table. 

This table is generated in Fortran II and 709 during the run of Section 1'. It is 
stored in the second record of file 3, on tape 2. Of course, Fortran I does not have 
subroutine calling facility. 
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IFN 




*XR 
INFO 


** INDEX TO 
TAU TABLE 



D 
3 

2.13.00 FORTAG RECORD 

The FORTAG record is a table that represents an index to the TAU table. It has 
a one -word entry of the following format: -. 

D 
O 

o 
o 

D 



1 17 24 26 27 35 

* XR INFO - This field indicates whether or not the FORTAG entry uses an 
absolute or symbolic index register. If there are no entries, a symbolic XR 
is inferred. If there is an entry the field is treated like the tag field of an 
instruction (e.g. , 24 = XRA, 25 = XRB, 26 =XRC). 

** Index to TAU table - The bit configuration in this field indicates which TAU 
table entry has the associated IFN. 

This table is generated during Section 1 and appears as a table in storage as a 
buffer. From the buffer area the table is written on tape 4 temporarily. Then 
during Section 1' the FORTAG table becomes the eleventh record of file 5 on tape 
2 in Fortran II and 709. It is the seventh record on the same tape of Fortran I. 



2. 14. 00 FORVAL AND FORVAR RECORDS 

The FORVAL and FORVAR records are tables of the fixed point non-subscripted 
variable, appearing to the left of (FORVAL), and the right of (FORVAR), of the 

equality sign in a statement. A fixed point non-subscripted variable must satisfy the "^ 

following conditions: 



) 



1. Must be six or less than six characters. 

2. The first character must be alphabetic. 

3. If an integer, it must start with I, J, K, L, M, or N. 

4. Must not read like a function name. j 

5. Must not have a left parenthesis following it. 

6. Must be entered as data in fixed point form. 

For example, if A and B are fixed-point form, the statement, "ARG = BRAND + 
6" contains "ARG" as an entry in the FORVAL table and "BRAND" as an entry in the -^ 

FORVAR table. J 

The tables are generated during Section 1' and are written on tape 2, file 5, record -^ 

9 and 10 in Fortran II and 709 or record 5 and 6 in Fortran I. The label number of the ) 

FORVAL table is 6. The label number of the FORVAR table is 5. Both label numbers 

are the first words of the first records, in the respective tables. The second words ., -^ 

in each record are the counts of the entries into these tables. Only one word is ^J 
necess ary to hold each entry in BCD form. 
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For example the statement ARG = BRAND +6 would be written: 
FORVAL TABLE (BCD) 



A i R l G l 

I I L 



FORVAR TABLE (BCD) 



B i R I A i N I D i 

I i l I L 



2.15.00 FRET TABLE 

The FRET table is a table generated from the FREQUENCY statements given in 
the source program. (See page 37, Form 32-7026.) This is a variable length entry 
table; that is, each entry occupies an indeterminate number of words, dependent on 
the number of branch points described by frequency statements. Each FREQUENCY 
statement permits the programmer to specify the number of times a particular 
branching point will be utilized by the source program. For instance, a particular 
IF statement may appear in a program as: 

38 IF N (10,20,30) 

The programmer can best use index registers in the program by informing the 
program that branch 10 will be u sed five times , branch 20 will be used three times 
and branch 30 will be used six times , by entering the following frequency statement: 



The general form is 



FREQUENCY 38 (5,3,6) 



FREQUENCY N (i, j, k ) 



Decrement 


Address 




38 




5 




3 




6 



Where N = EFM of branch point 
i, j, k = frequency of each branch 

Entries into the FRET table are made according to the following format: 



Word 1 
Word 2 
Word 3 
Word 4 



The length of each entry will be determined by the number of branches. 

The FRET table is generated during the run of Section 1. It appears as record 8 
on file 5, of tape 2, during Fortran I. It appears as the record 14 of the same file 
during Fortran II and 709. Notice that the first word in each entry is flagged with a 
minus sign. 

Before the table is recorded on tape 2 in Section 1' all the EFN's are changed to 
their corresponding IFN's. This means that 38 in the previous example would be 
replaced by its corresponding IFN. 
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2. 16. 00 HOLARG RECORD 

The Holarg record is a collection of Hollerith arguments of CALL statements. In 
a CALL statement, the Hollerith argument is not describing argument of some 
subroutine but is itself the data to be operated upon. (See page 16, of Fortran II, 
Form C28-6000. ) An example of this kind of CALL statement is: 

265 CALL 56H ****** This data indicates the Orbital entry point 

The number 265 is the external formula number. The 56 specifies the number 
of Hollerith characters (including blanks) that are in the Hollerith argument. H 
indicates that this is a Hollerith argument. The rest of the statement is data or 
commentary which will be later used in a print-out during the run of the object program 
under control of a PRINT 265 statement. 

The HOLARG record is generated during the run of Section 1'. It is on tape 2, 
file 5, record 4 of Fortran II compilation. The first word in the record is the label 
number, 13. The second word is a count of the number of words in this record. 
After this a variable number of words are required to store each entry. Since the 
storage consists of BCD entries, the number of full words required will be equal to 
the number of BCD characters divided by six, allowing another full word for any 
fractional part. A word consisting of 36 binary bits is stored immediately after the 
last word. The preceding example will be entered into the HOLARG record in BCD 
as: 

Word 1 
Word 2 
Word 3 
Word 4 
Word 5 
Word 6 
Word 7 
Word 8 
Word 9 

Word 10 ^_^_^_^_^_^_^_^_^_^_^_^^^^ 
Word 11 | 7 I 7 I 7 | 7 | 7 1 7 I 7 |7 I 7 1 7 I 7 | 7 | OCTAL 
♦Blank - - 110 000 

2.17.00 LAMBDA, ALPHA, and BETA TABLES 

The LAMBDA and ALPHA tables are generated during the arithmetic processing of 
Section 1. They represent the output of the executive program in its analysis of arith- 
metic statements. Pages 6 and 7 of Form 32-0306 describe the order of operation of 
arithmetic statements. In terms of the object program arithmetic statements must 
generate arithmetic and storing instructions with appropriate checking. These 
instructions must occur in proper order according to the placement of the operation 
symbols: + -*/)(**. The LAMBDA table is an internal record of the order of 
operations necessary to accomplish the required object program. It contains a 
symbol -by- symbol analysis of the right-hand side of arithmetic statements. Each 
operation symbol receives a level number during this analysis which indicates the 
priority that the operation has in the processing. 
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o 

D 
D 
J 
O 

o 

o 

D 
D 
D 
D 



D 
D 

D 
J 
D 
D 
J 



c 



The ALPHA table is used in Section 1 as a tally of the level of the operation symbol 
currently under investigation. Because the level number changes repeatedly through 
the analysis, the ALPHA table must be similarly altered. This alteration is much too 
detailed for this manual. 

The LAMBDA table requires three words for each entry. Each entry in turn is the 
result of an operation symbol in a Fortran statement. Therefore, it is common for 
the LAMBDA table resulting from one Fortran arithmetic statement to extend over 
100 core storage locations. The general configuration of the three -word entry is: 



Word 1 
Word 2 
Word 3 



Symbolic tag info. Current level number 



Operation code: + * ** / - 



Level number or BCD used in the source statement. 



The BETA table is closely associated with the LAMBDA and ALPHA in that it 
contains information on the control of arithmetic processing. This table requires 
only one word per entry. Its control is beyond the scope of this manual. 

2. 18. 00 NONEXEC RECORD 

The NONEXEC record is a table of IFN's and associated EFN's for non-executable 
Fortran statements. The following statements are non- executable: 

PAUSE, FORMAT, DIMENSION, EQUIVALENCE, FREQUENCY 

Each entry into the NONEXEC table requires only one word. The decrement of 
this entry contains the IFN, and the address contains the EFN of the non-executable 
instruction. 

The NONEXEC table is generated during the run of Section 1 and is stored during 
Section 1' on tape 2, file 5, record 15 in Fortran II and 709 or as record 11 in Fortran 
I. The first word in the record is the label number; the second number is a count of 
the number of words in the table. 

2. 19. 00 SIGMA AND TAU TABLES 

The SIGMA and TAU tables are collections of the subscript information used by the 
source program. An entry into the SIGMA table requires two or three full words of 
storage, depending on the dimensions of the subscripts. An entry into the TAU table 
requires three, five, or seven full 704-9 words, again dependent upon the dimensions 
of the subscripts. Both tables are stored on drum during the run of Section 1. They 
are recorded according to the following format: 

One-Dimension Subscripts. (Example: B (5 * I + 6) 

The symbol in the parentheses is the subscript of B. It is the most complex type 
of subscript, chosen intentionally to indicate its entry into the SIGMA and TAU tables. 
It will be entered in a two word storage space of the SIGMA table according to the 
following format: 
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Word 1 
Word 2 



Word 1 
Word 2 
Word 3 



Sigma Table 


Decrement 


Address 


+ 6 




+ 6 





TAU table 



Decrement 


Address 


5 






I (BCD) 


5+1 





Addend 
Check sum 



Multiplier 
Variable 
Check Sum 



3 
3 



3 
3 
3 



Two-Dimensional Subscripts. Example: B(5*I+6, 7*J+8) 
The example shown will enter the SIGMA and TAU tables in the following format, 

Sigma Table 



Word 1 
Word 2 



Word 1 
Word 2 
Word 3 
Word 4 

Word 5 



Decrement 


Address 


6 


8 


6 


8 



Tau Table 



Decrement 


Address 


5 


7 




I (BCD) 




J (BCD) 


d. See Section 
2.05.00 




5 + D 


+ 7+I+J 



Addends 1 & 2 
Check sum 



Multipliers 1 & 2 
Variable 1 
Dimension of I 
in DIM statement 

Check sum 



Three -Dimensional Subscripts. Example: B(5*I+6, 7*J + 8, 4*1+2) 



Word 1 
Word 2 
Word 3 



Word 1 
Word 2 
Word 3 
Word 4 
Word 5 
Word 6 
Word 7 



Sigma Table 


Decrement 


Address 


6 


8 


2 




6+2 


+ 8 



Tau Table 



Decrement 


Address 


5 


7 


4 






I (BCD) 




J (BCD) 




K (BCD) 


d -^dimension of I 


d 9 =dimension of J 


5 4 d i 


J 7 I J K d 2 



Addends 1 & 2 
Addend 3 
Check sum 



Multipliers 1 & 2 
Multiplier 3 
Variable 1 
Variable 2 
Variable 3 

Check sum 



3 
3 
3 
3 
3 
3 
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2.20.00 SIZE RECORD 

The SIZE record is a table of the variables and maximum dimensions of arrays 
described by dimension statements. It is closely associated with the TAU table. 
(See Section 2.19.00) 

The SIZE record requires two full words for each entry. (See page 35 of 
Form 32-7026 for a detailed description of the DIMENSION statement.) The entry is 
of the following format: 



Word 1 
Word 2 



BCD image of the variable 



Total size of array in binary 



For example, given the DIMENSION statement: 
DIMENSION C (3, 4, 5) 

The table entry would appear as: 



Word 1 
Word 2 



C (BCD) 



60 (i.e. 3x4x5) 



The SIZE table is generated during Section 1 and is stored in Section 1' on tape 2, 
file 4, record 3. 

2.21.00 SUBDEF RECORD 

Fortran II can also call in subroutines described by the programmer in the source 
program. For example, the subroutine introduced by the statement SUBROUTINE 
MATMPY (A, N, M, B, L, C) could be called into the main program by the statement: 

CALL MATMPY ( X, 5, 10, 4, 7, Z). 

Essentially, what happens is that the previously described MATMPY subroutine is 
brought into the compilation with the arguments of the SUBROUTINE statement. 
Naturally the arguments of the SUBROUTINE statement should correspond in mode , 
number, and order to those of the original MATMPY subroutine. (See pages 16 and 
17 of Form C28-6000.) 

The SUBDEF record is generated during the run of Section 1 ? . It is recorded on 
tape 2, file 5, in record 2. The first word of this record is the label number, 11. 
The second word of this record is a count of the number of words in the record. 

Each entry into the SUBDEF record requires one full word for the name of the 
subroutine (e.g. , MATMPY) and one full word for each of the arguments included 
in the parenthesis. For example, the subroutine statement SUBROUTINE MATMPY 
(A, N, M, B, L, C) is recorded as: 



Word 1 
Word 2 
Word 3 
Word 4 
Word 5 
Word 6 
Word 7 



Decrement 


Address 




MATMPY 




A 




N 




M 




B 




L 




C 



(BCD) 
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2.22.00 TDO RECORD 

The TDO record is a table which results from DO statements in the symbolic 
program. Each entry requires five full words. The five words are written 
according to the following format. 

Word 1: Decrement External formula number (EFN) of the DO 

statement (a) 

The EFN of the last statement executed under 
control of the DO statement (b) 
The BCD symbol for the integer variable of the 
DO statement (I, J, K, L, M, ORN) 
First value of variable (iij) 
Final value of variable (n 2 ) 



Address 



Word 2: Decrement 



3 
3 
3 
3 



Word 3 
Word 4 
Word 5 



Address 
Address 
Address 



Increment of the variable (n ) 

* 3' 



NOTE: 



The symbols in parentheses are those used by the authors of Fortran. 
(See pages 24, 45 and 46 of Form 32-0306.) 



Decrement 


Address 


5 


8 


I 






1 




25 




2 



The following DO statement would result in the table entry shown: 
5 DO 8 I = 1, 25, 2 



Word 1 
Word 2 
Word 3 
Word 4 
Word 5 



The TDO record is written during the run of Section 1', on tape 2, file 5, on 
record 4 of Fortran I or record 8 of Fortran II and 709. The first word of the first 
record is the label number of the TDO record, 1. The second word of the first 
record is a count of the number of words in the TDO table. 

Before tape 2 receives the TDO record in Section 1', all the EFN's are replaced 
by IFN's. (For example, the address of the first word becomes an IFN.) 

2. 23. 00 TEIFNO RECORD 

Two reference numbers are associated with Fortran statements, the internal IFN 
and external EFN formula numbers. All statements in the source program have 
internal formula numbers (IFN). These numbers are assigned to the statement 
sequentially starting with 1. The external formula number (EFN), on the other hand, 
is an arbitrary integer assigned to the statement by the programmer. It is entered 
into the location field of the source program card by the programmer, generally to 
permit reference to the particular statement by the source program. There is no 
need to assign an external formula number to any statement to which reference is 
never made. Therefore, all statements have IFN and some have both IFN and EFN. 

The EFN's and their corresponding IFN's are stored in the TEIFNO record by the 
translator during the run of Section r . Each statement requires the use of one 
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full 704-9 word for storage. The entry is made as follows: 



Decrement 


Address 


IFN 


EFN 



For example, if the following statement is the 28th statement in the program, the 
indicated table entry is made. 



15 DO 6 I = 1, 8 



28 


15 



STATEMENT 



TEIFNO Entry 



The TEIFNO (Table of External and Internal Formula Numbers) record is 
generated during the run of Section 1' as previously stated. This table is stored 
on tape 2, file 5, record 1 of Fortran I or the fifth record of the same tape and 
file on Fortran II or 709. The first word of the first record is the label number of 
the record, 0. The second record is a count of the number of words in the table. 

2.24.00 TIFGO RECORD 

The TIFGO record is a table of the IF, ASSIGN, and GO TO statements in the 
source program. Each statement in the program demands the use of two full 704 words 
for storage. This section describes entries that result from each type of statement. 
The first word of the first record in the TIFGO table is the label number. For this 
table the label number is two. The second word of the first record is a count of the 
number of words in the TIFGO table. 

IF Statement Entry. Example: 16 IF (E) n 1 , n 2 , n$ 

The entry for this statement would be as shown below, provided the IF statement 
given was the 31st statement in the source program. (See page 16 of Form 32-0306.) 



Word 1 
Word 2 



Unconditional GO TO Entry. Example: 21 GO TO n 

The entry for this statement would be as shown below, provided the given state- 
ment was the third statement in the source program. (See page 14 of Form 32-0306.) 



Word 1 
Word 2 



Decrement 


Address 


(IFN) 31 


n ! 


n 2 


n 3 



Decrement 


Address 


(IFN) 3 








n 



c 
c 
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Assigned Go To Entry 

In this type of statement the GO TO destination is determined by a previous ASSIGN 
statement. (See pages 48 and 49 of Form 32-0306.) The list of alternatives following 
in parenthesis are merely a list of all the possible GO TO destinations. 



For example, consider the following statement: 
21 GO TO N (B 1} B 2 , B 3 , B 4 



The GO TO destination will be the Ith statement, 
statement would be: (Assume an IFN of 6) 



Word 1 
Word 2 



B N ) 



The TIFGO table entry for this 



Decrement 


Address 


IFN (6) 


2 


♦CTRADi 


**CTRAD N 



♦CTRADi - The number of the entry in the TRAD record corresponding to 
the first possible transfer address given in the GO TO argument. 
**CTRADjj - The number of the last possible transfer address. 
( See Section 2.25.00) 

Computed GO TO Statement. Example: 26 GO TO (B^ B 2 , B 3 . . . . B N ) I. 

In this type of statement a transfer will take place in the object program dependent 
on the current value of I. I is a variable which is assigned some computed integer 
by the source program. The transfer takes place to the Ith term of the GO TO list 
of B's. For example, if the value of I is computed as 3, then the program will 
transfer to the third location in the list of locations which follow GO TO (B3 in the 
example). The entry for the computed GO TO takes the following form: 



Word 1 
Word 2 



Assign Statement Entry. Example: 29 ASSIGN 30 to N 

This statement is used in conjunction with a GO TO statement, as described under 
the computed GO TO Statement. 

The table entry of the above example takes the following form: 



Word 1 
Word 2 



Decrement 


Address 


EFN 26 


2* 


CTRAD, 


CTRAN N 


♦Unconditional. 





Decrement 


Address 


EFN 29 


6* 


BLANK 


Assigned value 30 



♦Unconditional. 



Indicator- Controlled IF Statement. Example: 16 IF (sense light N) 30, 40 

This statement is used in conjunction with: 

1. Sense switches 

2. Sense lights 

3. Divide check indicator 

4. Accumulator overflow light 

5. Quotient overflow light 
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If the corresponding N light is on or switch is down, transfer of the program proceeds 
to the statement specified by the first number following the parenthesis. If the 
corresponding N light is off or switch is up, transfer of the program proceeds to 
the statement specified by the second number following the parenthesis. 

The table entry takes the following format, for the example given: 



Decrement 


Address 


EFN, 16 


3, 4, or 5* 


30 


40 



Word 1 

Word 2 

*3 = Sense Switch or Sense Light 

4 = Divide Check 

5 = ACC or MQ overflow 

(Refer to pages 18-19 of Form 32-7026.) 

The TIFGO record is generated in Section 1. The entries indicated in this section 
contain the external formula numbers (EFN) specified by the programmer. However, 
before the TIFGO table is written on tape 2 in Section 1', all EFN's are replaced by 
their corresponding IFN's. 

2.25.00 TRAD RECORD 

The TRAD record is a table of all possible transfer addresses listed in assigned 
and computed GO TO statements. See Section 2.24.00. 

As many words are used for each entry (each assigned GO TO) as there are 
possible transfer addresses in the GO TO statement. The transfer address is entered 
in binary form into the address field of consecutive words on tape in the TRAD record. 

Recall that the TIFGO record uses a standard two-word format, which did not 
have enough storage space for the transfer addresses of the assigned GO TO's. In 
the TIFGO record, the references made to the TRAD table were: 

1. In the decrement field of the second word, the number of the word in the 
TRAD table which contains the first possible transfer address, reading the 
GO TO argument left to right. 

2. In the address field of the second word, the number of the word in the TRAD 
table which contains the last possible transfer address. 

For example, if the following two assigned GO TO statements are given first 
in the source program: 

26 GO TO (3, 6, 9, 4, 28) I ; IFN = 61 

28 GO TO (11, 13, 14, 15) I ; IFN = 62 
The following table entries are made in binary, in Section 1': 



TIFGO Table 



Word 1 
Word 2 
Word 3 
Word 4 
Word 5 
Word 6 



Decrement 


Address 




2 




N 


61 (IFN) 


2 


3 (1st TRA adr) 


7 (last TRA adr) 


62 (IFN) 


2 


8 (1st TRA adr) 


1 (last TRA adr) 



Label number 
Number of entries 



49 



TRAD Table 



Word 1 
Word 2 
Word 3 
Word 4 
Word 5 
Word 6 
Word 7 
Word 8 
Word 9 
Word 10 
Word 11 



X 



28 



11 



13 



14 



15 



Label number 
Number of entries 



First GO TO 



Second GO TO 



The TRAD record is generated during the processing in Section 1. It is entered 
on tape 2, file 5, as record 7 in Fortran II and 709 and record 3 in Fortran I. The 
first word of the first record is the label number three. The second word of the 
first record is a binary count of the number of words in the TRAD record. 

The previous examples of table entries indicate the format in Section 1. In 1', 
however, where the tables are recorded on tape 2, all the EFN's are replaced with 
their corresponding IFN's. 

2.26.00 TSTOP RECORD 

The TSTOP record is a table of IFN's associated with STOP statements in the 
source program. Each entry into the table requires only one word. The decrement 
of the word contains the IFN and the address contains the EFN of the STOP statements. 

The TSTOP table is generated during Section 1' on tape 2, file 5, record 16 in 
Fortran n and 709 or as record 12 in Fortran I. The first word in the record is the 
label number, the second word is a count of the number of words in the table. 



o 

3 
3 

o 

o 

3 
3 
J 

3 
J 

o 

3 
D 
3 
3 
3 



50 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



3.00.00 FORTRAN AUTOMATIC CODING SYSTEM 

This section reproduces, with permission of the Institute of Radio Engineers, 
the paper which appeared in the Proceedings of the Western Joint Computer 
Conference, February 26-28, 1957. 



The FORTRAN Automatic Coding System 

J. W. BACKUSf, R. J. BEEBERf, S. BEST*, R. GOLDBERGf, L. M. HAIBTf, 

H. L. HERRICKf, R. A. NELSONf, D. SAYREf, P. B. SHERIDANf, 

H. STERNf, I. ZILLERf, R. A. HUGHES§, and R. NUTT|| 



Introduction 

THE FORTRAN project was begun in the sum- 
mer of 1954. Its purpose was to reduce by a large 
factor the task of preparing scientific problems for 
IBM's next large computer, the 704. If it were possible 
for the 704 to code problems for itself and produce as 
good programs as human coders (but without the 
errors), it was clear that large benefits could be achieved. 
For it was known that about two-thirds of the cost of 
solving most scientific and engineering problems on 
large computers was that of problem preparation. 
Furthermore, more than 90 per cent of the elapsed time 
for a problem was usually devoted to planning, writing, 
and debugging the program. In many cases the de- 
velopment of a general plan for solving a problem was 
a small job in comparison to the task of devising and 
coding machine procedures to carry out the plan. The 
goal of the FORTRAN project was to enable the pro- 
grammer to specify a numerical procedure using a con- 
cise language like that of mathematics and obtain 
automatically from this specification an efficient 704 
program to carry out the procedure. It was expected 
that such a system would reduce the coding and de- 
bugging task to less than one-fifth of the job it had been. 
Two and one-half years and 18 man years have elapsed 
since the beginning of the project. The FORTRAN 

t Internat'l Business Machines Corp., New York, N. Y. 

[Mass. Inst. Tech., Computation Lab., Cambridge, Mass. 
Radiation Lab., Univ. of California, Livermore, Calif. 
United Aircraft Corp., East Hartford, Conn. 



system is now complete. It has two components: the 
FORTRAN language, in which programs are written, 
and the translator or executive routine for the 704 
which effects the translation of FORTRAN language 
programs into 704 programs. Descriptions of the FOR- 
TRAN language and the translator form the principal 
sections of this paper. 

The experience of the FORTRAN group in using the 
system has confirmed the original expectations con- 
cerning reduction of the task of problem preparation 
and the efficiency of output programs. A brief case 
history of one job done with a system seldom gives a 
good measure of its usefulness, particularly when the 
selection is made by the authors of the system. 
Nevertheless, here are the facts about a rather simple 
but sizable job. The programmer attended a one-day 
course on FORTRAN and spent some more time re- 
ferring to the manual. He then programmed the job 
in four hours, using 47 FORTRAN statements. These 
were compiled by the 704 in six minutes, producing 
about 1000 instructions. He ran the program and found 
the output incorrect. He studied the output (no tracing 
or memory dumps were used) and was able to localize 
his error in a FORTRAN statement he had written. 
He rewrote the offending statement, recompiled, and 
found that the resulting program was correct. He esti- 
mated that it might have taken three days to code this 
job by hand, plus an unknown time to debug it, and 
that no appreciable increase in speed of execution would 
have been achieved thereby. 
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The FORTRAN Language 

The FORTRAN language is most easily described 
by reviewing some examples. 

Arithmetic Statements 
Example 1: Compute: 



root = 



-(5/2) + y/(B/2Y-AC 



FOR TRA N Program : 

ROOT 

= (-(B/2.0) + SQRTF((B/2.Q) * *2 - A*C))/A. 

Notice that the desired program is a single FOR- 
TRAN statement, an arithmetic formula. Its meaning 
is: "Evaluate the expression on the right of the = sign 
and make this the value of the variable on the left." 
The symbol * denotes multiplication and * * denotes 
exponentiation {i.e., A* *B means A B ). The program 
which is generated from this statement effects the 
computation in floating point arithmetic, avoids com- 
puting (B/2.0) twice and computes (B/2.0) * *2 by a 
multiplication rather than by an exponentiation routine. 
[Had (B/2.0) * * 2.01 appeared instead, an exponentia- 
tion routine would necessarily be used, requiring more 
time than the multiplication. ] 

The programmer can refer to quantities in both 
floating point and integer form. Integer quantities 
are somewhat restricted in their use and serve primarily 
as subscripts or exponents. Integer constants are written 
without a decimal point. Example: 2 (integer form) vs 
2.0 (floating point form). Integer variables begin with 
I, J, K, L, M, or N. Any meaningful arithmetic expres- 
sion may appear on the right-hand side of an arithmetic 
statement, provided the following restriction is ob- 
served: an integer quantity can appear in a floating- 
point expression only as a subscript or as an exponent 
or as the argument of certain functions. The functions 
which the programmer may refer to are limited only 
by those available on the library tape at the time, such 
as SQRTF, plus those simple functions which he has 
defined for the given problem by means of function 
statements. An example will serve to describe the latter. 

Function Statements 

Example 2: Define a function of three variables to be 
used throughout a given problem, as follows: 

ROOTF(A, B, C) 

= (-(B/2.0) + SQRTF((B/2.0) * *2 - A*C))/A. 

Function statements must precede the rest of the pro- 
gram. They are composed of the desired function name 
(ending in F) followed by any desired arguments which 
appear in the arithmetic expression on the right of the 
= sign. The definition of a function may employ any 



previously defined functions. Having defined ROOTF 
as above, the programmer may apply it to any set of 
arguments in any subsequent arithmetic statements. For 
example, a later arithmetic statement might be 

THETA = 1.0 + GAMMA *ROOTF(PI, 3.2 *Y 

+ 14.0, 7.63). 

DO Statements, DIMENSION Statements, and Sub- 
scripted Variables 

Example 3: Set Q mtLX equal to the largest quantity 
P(ai+bi)/P(ai — bi) for some i between 1 and 1000 
where P(x) =c +CiX-\-C2X*-\-C3X*. 

FORTRA N Program : 

1) POLYF(X)=C0+X*(Cl+X*(C2+X*C3)). 

2) DIMENSION A(1000), B(1000). 

3) QMAX=-1.0E20. 

4) DO 5 1 = 1, 1000. 

5) QMAX = MAXF(QMAX, POLYF(A(I) 

+B(I))/POLYF(A(I)-B(I))). 

6) STOP. 

The program above is complete except for input and 
output statements which will be described later. The 
first statement is not executed; it defines the desired 
polynomial (in factored form for efficient output pro- 
gram). Similarly, the second statement merely informs 
the executive routine that the vectors A and B each have 
1000 elements. Statement 3 assigns a 'arge negative 
initial value to QMAX, -1.0X10 20 , using a special 
concise form for writing floating-point constants. State- 
ment 4 says "DO the following sequence of statements 
down to and including the statement numbered 5 for 
successive values of J from 1 to 1000. v In this case 
there is only one statement 5 to be repeated. It is exe- 
cuted 1000 times; the first time reference is made to 
A(l) and B(l), the second time to A(2) and B(2), etc. 
After the 1000th execution of statement 5, statement 
6 — STOP — is finally encountered. In statement 5, 
the function MAXF appears. MAXF may have two 
or more arguments and its value, by definition, is the 
value of its largest argument. Thus on each repetition 
of statement 5 the old value of QMAX is replaced by 
itself or by the value of POLYF(A(I)+B(I))/POLYF 
(A(I) -B(I)), whichever is larger. The value of QMAX 
after the 1000th repetition is therefore the desired 
maximum. 

Example 4: Multiply the nXn matrix a,-,(n<20) by 
its transpose, obtaining the product elements on or be- 
low the main diagonal by the relation 



Jt-i 



(for.; < 



and the remaining elements by the relation 

Cj,i = Ci,j. 
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FORTRAN Program: 

DIMENSION A(20, 20), C(20, 20) 
DO 2 I = 1, N P 







1 I 








DO 2 J = 1, I Q 

1 1 








C(I, J) = 0.0 

DO 1 K = 1, N R 




1 


C(I,J) == C(I,J) + A(I, K)*A(J, K) 


2 


C(J,I) = C(I,J) 











STOP 

As in the preceding example, the DIMENSION 
statement says that there are two matrices of maximum 
size 20X20 named A and C. For explanatory purposes 
only, the three boxes around the program show the 
sequence of statements controlled by each DO state- 
ment. The first DO statement says that procedure P, 
i.e., the following statements down to statement 2 (outer 
box) is to be carried out for 1 = 1 then for 1=2 and so 
on up to I=N. The first statement of procedure 
P(DO 2 J = 1, I) directs that procedure Q be done for 
J = l to J = I. And of course each execution of pro- 
cedure Q involves N executions of procedure R for 
K = l, 2, • • • , N. 

Consider procedure Q. Each time its last statement 
is completed the "index" J of its controlling DO state- 
ment is increased by 1 and control goes to the first 
statement of Q, until finally its last statement is reached 
and J =1. Since this is also the last statement of P and 
P has not been repeated until I = N, I will be increased 
and control will then pass to the first statement of P. 
This statement (DO 2 J = l, I) causes the repetition 
of Q to begin again. Finally, the last statement of Q and 
P (statement 2) will be reached with J = I and I = N, 
meaning that both Q and P have been repeated the 
required number of times. Control will then go to the 
next statement, STOP. Each time R is executed a new 
term is added to a product element. Each time Q is 
executed a new product element and its mate are ob- 
tained. Each time P is executed a product row (over to 
the diagonal) and the corresponding column (down to 
the diagonal) are obtained. 

The last example contains a "nest" of DO state- 
ments, meaning that the sequence of statements con- 
trolled by one DO statement contains other DO state- 
ments. Another example of such a nest is shown in the 
next column, on the left. Nests of the type shown on the 
right are not permitted, since they would usually be 
meaningless. 

Although not illustrated in the examples given, the 
programmer may also employ subscripted variables 
having three independent subscripts. 



READ, PRINT, FORMAT, IF and GO TO Statements 

Example 5 : For each case, read from cards two vec- 
tors, ALPHA and RHO, and the number ARC ALPHA 
and RHO each have 25 elements and ALPHA(I) 
<ALPHA(I+1), 1 = 1 to 24. Find the SUM of all the 
elements of ALPHA from the beginning to the last 
one which is less than or equal to ARG [assume 
ALPHA(1)<ARG<ALPHA(25)]. If this last element 
is the Nth, set VALUE = 3.14159 *KRO(N). Print a 
line for each case with ARG, SUM, and VALUE. 

FOR TRA N Program : 

DIMENSION ALPHA(25), RHO(25) 

1) FORMAT(5F12.4). 

2) READ 1, ALPHA, RHO, ARG 
SUM = 0.0 

DO 3 1 = 1, 25 

IF (ARG-ALPHA(I)) 4, 3, 3. 

3) SUM=SUM+ALPHA(I) 

4) VALUE = 3.14159*RHO(I-l) 
PRINT 1, ARG, SUM, VALUE 
GO TO 2. 

The FORMAT statement says that numbers are to 
be found (or printed) 5 per card (or line), that each 
number is in fixed point form, that each number oc- 
cupies a field 12 columns wide and that the decimal 
point is located 4 digits from the right. The FORMAT 
statement is not executed; it is referred to by the READ 
and PRINT statements to describe the desired arrange- 
ment of data in the external medium. 

The READ statement says "READ cards in the 
card reader which are arranged according to FORMAT 
statement 1 and assign the successive numbers obtained 
as values of ALPHA{\) 1 = 1,25 and RHO(l) 1 = 1, 25 
and ARG." Thus "ALPHA, RHO, ARG" is a descrip- 
tion of a list of 51 quantities (the size of ALPHA and 
RHO being obtained from the DIMENSION state- 
ment). Reading of cards proceeds until these 51 quanti- 
ties have been obtained, each card having five numbers, 
as per the FORMAT description, except the last which 
has the value of ARG only. Since ARG terminated the 
list, the remaining four fields on the last card are not 
read. The PRINT statement is similar to READ except 
that it specifies a list of only three quantities. Thus 
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each execution of PRINT causes a single line to be 
printed with ARG, SUM, VALUE printed in the first 
three of the five fields described by FORMAT state- 
ment 1. 

The IF statement says "If ARG-ALPHA(I) is 
negative go to statement 4, if it is zero go to statement 
3, and if it is positive go to 3." Thus the repetition 
of the two statements controlled by the DO consists 
normally of computing ARG — ALPHA(I), finding it 
zero or positive, and going to statement 3 followed by 
the next repetition. However, when I has been in- 
creased to the extent that the first ALPHA exceeding 
ARG is encountered, control will pass to statement 4. 
Note that this statement does not belong to the se- 
quence controlled by the DO. In such cases, the repeti- 
tion specified by the DO is terminated and the value of 
the index (in this case I) is preserved. Thus if the first 
ALPHA exceeding ARG were ALPHA (20), then RHO 
(19) would be obtained in statement 4. 

The GO TO statement, of course, passes control to 
statement 2, which initiates reading the 11 cards for the 
next case. The process will continue until there are no 
more cards in the reader. The above program is entirely 
complete. When punched in cards as shown, and com- 
piled, the translator will produce a ready-to-run 704 
program which will perform the job specified. 

Other Types of FORTRAN Statements 

In the above examples the following types of FOR- 
TRAN statements have been exhibited. 

Arithmetic statements 
Function statements 
DO statements 
IF statements 
GO TO statements 
READ statements 
PRINT statements 
STOP statements 
DIMENSION statements 
FORMAT statements. 

The explanations accompanying each example have 
attempted to show some of the possible applications and 
variations of these statements. It is felt that these 
examples give a representative picture of the FOR- 
TRAN language; however, many of its features have 
had to be omitted. There are 23 other types of state- 
ments in the language, many of them completely 
analogous to some of those described here. They pro- 
vide facilities for referring to other input-output and 
auxiliary storage devices (tapes, drums, and card 
punch), for specifying preset and computed branching 
of control, for detecting various conditions which may 
arise such as an attempt to divide by zero, and for pro- 
viding various information about a program to the 
translator. A complete description of the language is to 
be found in Programmer' s Reference Manual, the FOR- 
TRAN Automatic Coding System for the IBM 704. 



Preparation of a Program for Translation 

The translator accepts statements punched one per 
card (continuation cards may be used for very long 
statements). There is a separate key on the keypunch- 
ing device for each character used in FORTRAN state- 
ments and each character is represented in the card by 
several holes in a single column of the card. Five 
columns are reserved for a statement number (if pres- 
ent) and 66 are available for the statement. Keypunch- 
ing a FORTRAN program is therefore a process similar 
to that of typing the program. 

Translation 

The deck of cards obtained by keypunching may 
then be put in the card reader of a 704 equipped with 
the translator program. When the load button is pressed 
one gets either 1) a list of input statements which fail 
to conform to specifications of the FORTRAN language 
accompanied by remarks which indicate the type of 
error in each case; 2) a deck of binary cards representing 
the desired 704 program, 3) a binary tape of the program 
which can either be preserved or loaded and executed 
immediately after translation is complete, or 4) a tape 
containing the output program in symbolic form suitable 
for alteration and later assembly. (Some of these out- 
puts may be unavailable at the time of publication.) 

The FORTRAN Translator 
General Organization of the System 

The FORTRAN translator consists of six successive 
sections, as follows. 

Section 1: Reads in and classifies statements. For 
arithmetic formulas, compiles the object (output) in- 
structions. For nonarithmetic statements including 
input-output, does a partial compilation, and records 
the remaining information in tables. All instructions 
compiled in this section are in the COM PAIL file. 

Section 2: Compiles the instructions associated with 
indexing, which result from DO statements and the oc- 
currence of subscripted variables. These instructions 
are placed in the COMPDO file. 

Section 3: Merges the COMPAIL and COMPDO 
files into a single file, meanwhile completing the compila- 
tion of nonarithmetic statements begun in Section 1. 
The object program is now complete, but assumes an 
object machine with a large number of index registers. 

Section 4: Carries out an analysis of the flow of the 
object program, to be used by Section 5. 

Section 5 : Converts the object program to one which 
involves only the three index registers of the 704. 

Section 6: Assembles the object program, producing 
a relocatable binary program ready for running. Also 
on demand produces the object program in SHARE 
symbolic language. 

{Note: Section 3 is of internal importance only; Sec- 
tion 6 is a fairly conventional assembly program. These 
sections will be treated only briefly in what follows.) 
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Within the translator, information is passed from 
section to section in two principal forms: as compiled 
instructions, and as tables. The compiled instructions 
(e.g., the COMPAIL and COMPDO files, and later their 
merged result) exist in a four-word format which con- 
tains all the elements of a symbolic 704 instruction; 
i.e., symbolic location, three-letter operation code, sym- 
bolic address with relative absolute part, symbolic tag, 
and absolute decrement. (Instructions which refer to 
quantities given symbolic names by the programmer 
have those same names in their addresses.) This sym- 
bolic format is retained until section 6. Throughout, the 
order of the compiled instructions is maintained by 
means of the symbolic locations (internal statement 
numbers), which are assigned in sequential fashion by 
section 1 as each new statement is encountered. 

The tables contain all information which cannot yet 
be embodied in compiled instructions. For this reason 
the translator requires only the single scan of the source 
program performed in section 1. 

A final observation should be made about the organ- 
ization of the system. Basically, it is simple, and most 
of the complexities which it does possess arise from the 
effort to cause it to produce object programs which 
can compete in efficiency with hand-written programs. 
Some of these complexities will be found within the 
individual sections; but also, in the system as a whole, 
the sometimes complicated interplay between compiled 
instructions and tables is a consequence of the desire to 
postpone compiling until the analysis necessary to 
produce high object-program efficiency has been per- 
formed. 

Section 1 (Beeber, Herrick, Nutt, Sheridan, and Stem) 
The over-all flow of section 1 is 
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Section 2 



For an input-output statement, section 1 compiles the 
appropriate read or write select (RDS or WRS) in- 
struction, and the necessary copy (CPY) instructions 
(for binary operations) or transfer instructions to pre- 
written input-output routines which perform conver- 
sion between decimal and binary and govern format (for 
decimal operations). When the list of the input-output 
statement is repetitive, table entries are made which 
will cause section 2 to generate the indexing instructions 
necessary to make the appropriate loops. 

The treatment of statements which are neither input- 
output nor arithmetic is similar; i.e., those instructions 



which can be compiled are compiled, and the remaining 
information is extracted and placed in one or more of 
the appropriate tables. 

In contrast, arithmetic formulas are completely 
treated in section 1, except for open (built-in) sub- 
routines, which are added in section 3; a complete set 
of compiled instructions is produced in the COMPAIL 
file. This compilation involves two principal tasks: 1) 
the generation of an appropriate sequence of arith- 
metic instructions to carry out the computation speci- 
fied by the formula, and 2) the generation of (symbolic) 
tags for those arithmetic instructions which refer to 
subscripted variables (variables which denote arrays) 
which in combination with the indexing instructions to 
be compiled in section 2 will refer correctly to the indi- 
vidual members of those arrays. Both these tasks are 
accomplished in the course of a single scan of the for- 
mula. 

Task 2) can be quickly disposed of. When a sub- 
scripted variable is encountered in the scan, its sub- 
script^) are examined to determine the symbols used 
in the subscripts, their multiplicative coefficients, and 
the dimensions of the array. These items of information 
are placed in tables where they will be available to 
section 2 ; also from them is generated a subscript com- 
bination name which is used as the symbolic tag of 
those instructions which refer to the subscripted vari- 
able. 

The difficulty in carrying out task 1) is one of level; 
there is implicit in every arithmetic formula an order of 
computation, which arises from the control over order- 
ing assigned by convention to the various symbols 
(parentheses, +, — , * , /, etc.) which can appear, and 
this implicit ordering must be made explicit before 
compilation of the instructions can be done. This ex- 
plicitness is achieved, during the formula scan, by 
associating with each operation required by the formula 
a level number, such that if the operations are carried 
out in the order of increasing level number the correct 
sequence of arithmetic instructions will be obtained. The 
sequence of level numbers is obtained by means of a 
set of rules, which specify for each possible pair formed 
of operation type and symbol type the increment to be 
added to or subtracted from the level number of the 
preceding pair. 

In fact, the compilation is not carried out with the 
raw set of level numbers produced during the scan. 
After the scan, but before the compilation, the levels 
are examined for empty sections which can be deleted, 
for permutations of operations on the same level which 
will reduce the number of accesses to memory, and for 
redundant computation (arising from the existence of 
common subexpressions) which can be eliminated. 

An example will serve to show (somewhat inaccurate- 
ly) some of the principles employed in the level-analysis 
process. Consider the following arithmetic expression : 
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A + B**C*(E + F). 

In the level analysis of this expression parentheses 
are in effect inserted which define the proper order in 
which the operations are to be performed. If only three 
implied levels are recognized (corresponding to +, * 
and * *) the expression obtains the following: 

+ (•(* *A)) + (*(* *B* *Q* [+(*(* *£)) + (*(* *F))]). 

The brackets represent the parentheses appearing in the 
original expression. (The level-analysis routine actually 
recognizes an additional level corresponding to func- 
tions.) Given the above expression the level-analysis 
routine proceeds to define a sequence of new dependent 
variables the first of which represents the value of the 
entire expression. Each new variable is generated when- 
ever a left parenthesis is encountered and its definition 
is entered on another line. In the single scan of the ex- 
pression it is often necessary to begin the definition of 
one new variable before the definition of another has 
been completed. The subscripts of the w's in the follow- 
ing sets of definitions indicate the order in which they 
were defined. 

MO = + U X + «3 
U\ = * «2 

Ui = * * A 

U% = * Ui* U$ 

Ui = * * B * * C 

«6 = + «6 + «8 
Wfi = * M7 
M 7 = * * E 
U$ = * «9 
U 9 = * *F. 

This is the point reached at the end of the formula 
scan. What follows illustrates the further processing 
applied to the set of levels. Notice that u 9 , for example, 
is defined as * * F. Since there are not two or more 
operands to be combined the * * serves only as a level 
indication and no further purpose is served by having 
defined «g. The procedure therefore substitutes F for 
u 9 wherever u% appears and the line m 9 = * * F is deleted. 
Similarly, F is then substituted for w 8 and u s = * F is 
deleted. This elimination of "redundant" m's is carried 
to completion and results in the following: 

Wo = + A + « 3 
«3 = *Ui* «5 

tit — * * B* * C 
u 6 = + E + F. 

These definitions, read up, describe a legitimate 
procedure for obtaining the value of the original ex- 



pression. The number of m's remaining at this point 
(in this case four) determines the number of intermedi- 
ate quantities which may need to be stored. However, 
further examination of this case reveals that the result 
of «3 is in the accumulator, ready for w ; therefore the 
store and load instructions which would usually be 
compiled between u 3 and w are omitted. 

Section 2 (Nelson and Ziller) 

Throughout the object program will appear in- 
structions which refer to subscripted variables. Each 
of these instructions will (until section 5) be tagged with 
a symbolic index register corresponding to the particu- 
lar subscript combination of the subscripts of the varia- 
ble [e.g., (I, K, J) and (K, I, J) are two different sub- 
script combinations]. If the object program is to work 
correctly, every symbolic index register must be so 
governed that it will have the appropriate contents at 
every instant that it is being used. It is the source pro- 
gram, of course, which determines what these appro- 
priate contents must be, primarily through its DO 
statements, but also through arithmetic formulas (e.g. 
I = N+1) which may define the values of variables ap- 
pearing in subscripts, or input formulas which may 
read such values in at object time. Moreover, in the 
case of DO statements, which are designed to produce 
loops in the object program, it is necessary to provide 
tests for loop exit. It is these two tasks, the governing 
of symbolic index registers and the testing of their 
contents, which section 2 must carry out. 

Much of the complexity of what follows arises from 
the wish to carry out these tasks optimally; i.e., when 
a variable upon which many subscript combinations de- 
pend undergoes a change, to alter only those index 
registers which really require changing in the light of 
the problem flow, and to handle exits correctly with 
a minimum number of tests. 

If the following subscripted variable appears in a 
FORTRAN program 

.4(2*/+ 1,4*/ + 3, 6*X + 5), 

the index quantity which must be in its symbolic index 
register when this reference to A is made is 

(ci* - 1) + (ctj - l)di + (c 3 k - \)d4i + 1, 

where c u c 2 , and c 3 in this case have the values 2, 4, and 
6; i,j, and k are the values of /, /, and K at the moment, 
and di and d, are the J and J dimensions of A. The 
effect of the addends 1, 3, and 5 is incorporated in the 
address of the instruction which makes the reference. 

In general, the index quantity associated with a sub- 
script combination as given above, once formed, is not 
recomputed. Rather, every time one of the variables in 
a subscript combination is incremented under control of 
a DO, the corresponding quantity is incremented by 
the appropriate amount. In the example given, if K 
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is increased by n (under control of a DO), the index 
quantity is increased by c 3 didjn, giving the correct new 
value. The following paragraphs discuss in further detail 
the ways in which index quantities are computed and 
modified. 

Choosing the Indexing Instructions; Case of Subscripts 
Controlled by DO's 

We distinguish between two classes of subscript; 
those which are in the range of a DO having that sub- 
script as its index symbol, and those subscripts which 
are not controlled by DO's. 

The fundamental idea for subscripts controlled by 
DO's is that a sequence of indexing instruction groups 
can be selected to answer the requirements, and that 
the choice of a particular instruction group depends 
mainly oh the arrangement of the subscripts within the 
subscript combination and the order of the DO's con- 
trolling each subscript. 

DO's often exist in nests. A nest of DO's consists of 
all the DO's contained by some one DO which is itself 
not contained by any other. Within a nest, DO's are 
assigned level numbers. Wherever the index symbol of a 
DO appears as a subscript within the range of that DO, 
the level number of the DO is assigned to the subscript. 
The relative values of the level numbers in a subscript 
combination produce a group number which, along with 
other information, determines which indexing instruc- 
tion group is to be compiled. 

The source language, 

DO 10 J = 1, 5 
DO 10 /= 1, 5 
DO 5K = 1, J 

5 • • • A(I, J, K) • • • (some statement referring to 
A(I, J, K)) 
DO 10 K = /, 5 
10 • • • A(K, /,/)••• 

produces the following DO structure and group combi- 
nations: 



/ 


level 1 






-J 


level 2 






VK 


level 3 










levels 


group no 


L 


I,J,K 


— (1. 2, 3) 


>6 


r* 


level 3 
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K,J,I 


-> (3, 2, 1) — 


►!. 



Producing the Decrement Parts of Indexing Instructions 

The part of the 704 instruction used to change or test 
the contents of an index register is called the decrement 
part of the instruction. 



The decrement parts of the FORTRAN indexing 
instructions are functions of the dimensions of arrays 
and of the parameters of DO's; that is, of the initial 
value »i, the upper bound w 2 , and the increment w 3 
appearing in the statement DO 1 i = ni, n%, n 3 . The 
general form of the function is [(n 2 — n\-\-n$)ln%\nzg 
where g represents necessary coefficients and dimen- 
sions, and [x] denotes the integral part of x. 

If all the parameters are constants, the decrement 
parts are computed during the execution of the FOR- 
TRAN executive program. If the parameters are vari- 
able symbols, then instructions are compiled in the 
object program to compute the proper decrement val- 
ues. For object program efficiency, it is desirable to 
associate these computing instructions with the outer- 
most DO of a nest, where possible, and not with the 
inner loops, even though these inner DO's may have 
variable parameters. Such a variable parameter {e.g., 
N in "DO 7 1=1, N") may be assigned values by the 
programmer by any of a number of methods; it may be 
a value brought in by a READ statement, it may be 
calculated by an arithmetic statement, it may take its 
value from a transfer exit from some other DO whose 
index symbol is the pertinent variable symbol, or it may 
be under the control of a DO in the nest. A search is 
made to determine the smallest level number in the 
nest within which the variable parameter is not assigned 
a new value. This level number determines the place 
at which computing instructions can best be compiled. 

Case of Subscripts not Controlled by DO's 

The second of the two classes of subscript symbols is 
that of subscript symbols which are not under control 
of DO's. Such a subscript can be given a value in a 
number of ways similar to the defining of DO param- 
eters: a value may be read in by a READ statement, 
it may be calculated by an arithmetic statement, or it 
may be defined by an exit made from a DO with that 
index symbol. 

For subscript combinations with no subscript under 
the control of a DO, the basic technique used to intro- 
duce the proper values into a symbolic index register is 
that of determining where such definitions occur, and, 
at the point of definition, using a subroutine to compute 
the new index quantity. These subroutines are generated 
at executive time, if it is determined that they are 
necessary. 

If the index quantity exists in a DO nest at the time 
of a transfer exit, then no subroutine calculations are 
necessary since the exit values are precisely the desired 
values. 

Mixed Cases 

In cases in which some subscripts in a subscript com- 
bination are controlled by DO's, and some are not, 
instructions are compiled to compute the initial value 
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of the subscript combination at the beginning of the 
outside loop. If the non-DO-controlled subscript sym- 
bol is then defined inside the loop (that is, after the 
computing of the load quantity) the procedure of using 
a subroutine at the point of subscript definition will 
bring the new value into the index register. 

An exception to the use of a subroutine is made when 
the subscript is defined by a transfer exit from a DO, 
and that DO is within the range of a DO controlling 
some other subscript in the subscript combination. 
In such instances, if the index quantity is used in the 
inner DO, no calculation is necessary; the exit values 
are used. If the index quantity is not used, instructions 
are compiled to simulate this use, so that in either case 
the transfer exit leaves the correct function value in 
the index register. 

Modification and Optimization 

Initializing and computing instructions correspond- 
ing to a given DO are placed in the object program at a 
point corresponding to the lowest possible (outermost) 
DO level rather than at the point corresponding to the 
given DO. This technique results in the desired removal 
of certain instructions from the most frequent inner- 
most loops of the object program. However, it necessi- 
tates the consideration of some complex questions when 
the flow within a nest of DO's is complicated by the 
occurrence of transfer escapes from DO-type repetition 
and by other IF and GO TO flow paths. Consider a 
simple example, a nest having a DO on / containing a 
DO on J, where the subscript combination (/, /) appears 
only in the inner loop. If the object program corre- 
sponded precisely to the FORTRAN language pro- 
gram, there would be instructions at the entrance point 
of the inner loop to set the value of J in (/, /) to the 
initial value specified by the inner DO. Usually, how- 
ever, it is more efficient to reset the value of J in (/, /) 
at the end of the inner loop upon leaving it, and the ob- 
ject program is so constructed. In this case it becomes 
necessary to compile instructions which follow every 
transfer exit from the inner loop into the outer loop (if 
there are any such exits) which will also reset the value 
of J in (/, J) to the initial value it should have at the 
entrance of the inner loop. These instructions, plus the 
initialization of both / and / in (/, /) at the entrance 
of the outer loop (on I), insure that / always has its 
proper initial value at the entrance of the inner loop 
even though no instructions appear at that point which 
change /. The situation becomes considerably more 
complicated if the subscript combination (J, J) also ap- 
pears in the outer loop. In this case two independent 
index quantities are created, one corresponding to 
(/, J) in the inner loop, the other to (/, /) in the outer 
loop. 

Optimizing features play an important role in the 
modification of the procedures and techniques outlined 
above. It may be the case that the DO structure and 



subscript combinations of a nest describe the scanning 
of a two- or three-dimensional array which is the equiva- 
lent of a sequential scan of a vector; i.e., a reference 
to each of a set of memory locations in descending order. 
Such an equivalent procedure is discovered, and where 
the flow of a nest permits, is used in place of more com- 
plicated indexing. This substitution is not of an empiri- 
cal nature, but is instead the logical result of a general- 
ized analysis. 

Other optimizing techniques concern, for example, 
the computing instructions compiled to evaluate the 
functions (governing index values and decrements) men- 
tioned previously. When some of the parameters are 
constant, the functions are reduced at executive time, 
and a frequent result is the compilation of only one 
instruction, a reference to a variable, to obtain a proper 
initializing value. 

In choosing the symbolic index register in which to 
test the value of a subscript for exit purposes, those 
index registers are avoided which would require the 
compilation of instructions to modify the test instruc- 
tion decrement. 

Section 4 (Haibt) and Section 5 (Best) 

The result of section 3 is a complete program, but one 
in which tagged instructions are tagged only sym- 
bolically, and which assumes that there will be a real 
index register available for every symbolic one. It is the 
task of sections 4 and 5 to convert this program to one 
involving only the three real index registers of the 704. 
Generally, this requires the setting up, for each symbolic 
index register, of a storage cell which will act as an 
index cell, and the addition of instructions to load the 
real index registers from, and store them into, the index 
cells. This is done in section 5 (tag analysis) on the basis 
of information about the pattern and frequency of flow 
provided by section 4 (flow analysis) in such a way 
that the time spent in loading and storing index registers 
will be nearly minimum. 

The fundamental unit of program is the basic block; a 
basic block is a stretch of program which has a single 
entry point and a single exit point. The purpose of sec- 
tion 4 is to prepare for section 5 a table of predecessors 
(PRED table) which enumerates the basic blocks and 
lists for every basic block each of the basic blocks which 
can be its immediate predecessor in flow, together with 
the absolute frequency of each such basic block link. 
This table is obtained by an actual "execution" of the 
program in Monte- Carlo fashion, in which the outcome 
of conditional transfers arising out of IF- type state- 
ments and computed GO TO's is determined by a ran- 
dom number generator suitably weighted according 
to whatever FREQUENCY statements have been pro- 
vided. 

Section 5 is divided into four parts, of which part 1 is 
the most important. It makes all the major decisions 
concerning the handling of index registers, but records 
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them simply as bits in the PRED table and a table of 
all tagged instructions, the STAG table. Part 2 merely 
reorganizes those tables; part 3 adds a slight further 
treatment to basic blocks which are terminated by an 
assigned GO TO; and finally part 4 compiles the finished 
program under the direction of the bits in the PRED and 
STAG tables. Since part 1 does the real work involved 
in handling the index registers, attention will be con- 
fined to this part in the sequel. 

The basic flow of part 1 of section 5 is, 



Yes 



Any PRED entries not yet considered? 


— *■ 


Form new region 




i\ 




* 




No 




Treat new region 




' 




1 




Part 2 











Consider a moment partway through the execution 
of part 1, when a new region has just been treated. The 
less frequent basic blocks have not yet been encoun- 
tered ; each basic block that has been treated is a mem- 
ber of some region. The existing regions are of two 
types: transparent, in which there is at least one real 
index register which has not been used in any of the 
member basic blocks, and opaque. Bits have been en- 
tered in the STAG table, calling where necessary for 
an LXD (load index register from index cell) instruc- 
tion preceding, or an SXD (store index register in index 
cell) instruction following, the tagged instructions of the 
basic blocks that have been treated. For each basic 
block that has been treated is recorded the required 
contents of each of the three real index registers for 
entrance into the block, and the contents upon exit. 
In the PRED table, entries that have been considered 
may contain bits calling for interblock LXD's and 
SXD's, when the exit and entrance conditions across the 
link do not match. 

Now the PRED table is scanned for the highest- 
frequency link not yet considered. The new region is 
formed by working both forward over successors and 
backward over predecessors from this point, always 
choosing the most frequent remaining path of control. 
The marking out of a new region is terminated by en- 
countering 1) a basic block which belongs to an opaque 
region, 2) a basic block which has no remaining links 
into it (when working backward) or from it (when 
working forward), or which belongs to a transparent 
region with no such links remaining, or 3) a basic block 
which closes a loop. Thus the new region generally 
includes both basic blocks not hitherto encountered, and 
entire regions of basic blocks which have already been 
treated. 

The treatment of hitherto untreated basic blocks in 
the new region is carried out by simulating the action 
of the program. Three cells are set aside to represent the 
object machine index registers. As each new tagged in- 
struction is encountered these cells are examined to see 



if one of them contains the required tag; if not, the 
program is searched ahead to determine which of the 
three index registers is the least undesirable to replace, 
and a bit is entered in the STAG table calling for an 
LXD instruction to that index register. When the 
simulation of a new basic block is finished, the en- 
trance and exit conditions are recorded, and the next 
item in the new region is considered. If it is a new basic 
block, the simulation continues; if it is a region, the 
index register assignment throughout the region is 
examined to see if a permutation of the index registers 
would not make it match better, and any remaining mis- 
match is taken care of by entries in PRED calling for 
interblock LXD's. 

A final concept is that of index register activity. 
When a symbolic index register is initialized, or when 
its contents are altered by an indexing instruction, the 
value of the corresponding index cell falls out of date, 
and a subsequent LXD will be incorrect without an 
intervening SXD. This problem is handled by activity 
bits, which indicate when the index cell is out of date; 
when an LXD is required the activity bit is interrogated, 
and if it is on an SXD is called for immediately after the 
initializing or indexing instruction responsible for the 
activity, or in the interblock link from the region con- 
taining that instruction, depending upon whether the 
basic block containing that instruction was a new basic 
block or one in a region already treated. 

When the new region has been treated, all of the 
old regions which belonged to it simply lose their iden- 
tity; their basic blocks and the hitherto untreated basic 
blocks become the basic blocks of the new region. Thus 
at the end of part 1 there is but one single region, and 
it is the entire program. The high-frequency parts of the 
program were treated early; the entrance and exit con- 
ditions and indeed the whole handling of the index 
registers reflect primarily the efficiency needs of these 
high-frequency paths. The loading and unloading of the 
index registers is therefore as much as possible placed 
in the low-frequency paths, and the object program 
time consumed in these operations is thus brought near 
to a minimum. 

Conclusion 

The preceding sections of this paper have described 
the language and the translator program of the FOR- 
TRAN system. Following are some comments on the 
system and its application. 

Scope of Applicability 

The language of the system is intended to be capable 
of expressing virtually any numerical procedure. Some 
problems programmed in FORTRAN language to date 
include: reactor shielding, matrix inversion, numerical 
integration, tray-to-tray distillation, microwave propa- 
gation, radome design, numerical weather prediction, 
plotting and root location of a quartic, a procedure for 
playing the game "nim," helicopter design, and a number 
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of others. The sizes of these first programs range from 
about 10 FORTRAN statements to well over 1000, or 
in terms of machine instructions, from about 100 to 
7500. 

Conciseness and Convenience 

The statement of a program in FORTRAN lan- 
guage rather than in machine language or assembly 
program language is intended to result in a considerable 
reduction in the amount of thinking, bookkeeping, 
writing, and time required. In the problems mentioned 
in the preceding paragraph, the ratio of the number of 
output machine instructions to the number of input 
FORTRAN statements for each problem varied be- 
tween about 4 and 20. (The number of machine instruc- 
tions does not include any library subroutines and thus 
represents approximately the number which would need 
to be hand coded, since FORTRAN does not normally 
produce programs appreciably longer than correspond- 
ing hand-coded ones.) The ratio tends to be high, of 
course, for problems with many long arithmetic expres- 
sions or with complex loop structure and subscript ma- 
nipulation. The ratio is a rough measure of the concise- 
ness of the language. 

The convenience of using FORTRAN language is 
necessarily more difficult to measure than its concise- 
ness. However the ratio of coding times, assembly pro- 
gram language vs FORTRAN language, gives some in- 
dication of the reduction in thinking and bookkeeping 
as well as in writing. This time reduction ratio appears 
to range also from about 4 to 20 although it is difficult 
to estimate accurately. The largest ratios are usually 
obtained by those problems with complex loops and 
subscript manipulation as a result of the planning of 
indexing and bookkeeping procedures by the translator 
rather than by the programmer. 

Education 

It is considerably easier to teach people untrained in 
the use of computers how to write programs in 
FORTRAN language than it is to teach them machine 
language. A FORTRAN manual specifically designed 
as a teaching tool will be available soon. Despite the 
unavailability of this manual, a number of successful 
courses for nonprogrammers, ranging from one to three 
days, have been completed using only the present ref- 
erence manual. 

Debugging 

The structure of FORTRAN statements is such that 
the translator can detect and indicate many errors 
which may occur in a FORTRAN-language program. 
Furthermore, the nature of the language makes it possi- 
ble to write programs with far fewer errors than are to 
be expected in machine-language programs. 

Of course, it is only necessary to obtain a correct 
FORTRAN-language program for a problem, therefore 
all debugging efforts are directed toward this end. Any 



errors in the translator program or any machine mal- 
function during the process of translation will be de- 
tected and corrected by procedures distinct from the 
process of debugging a particular FORTRAN program. 

In order to produce a program with built-in debugging 
facilities, it is a simple matter for the programmer to 
write various PRINT statements, which cause "snap- 
shots" of pertinent information to be taken at appropri- 
ate points in his procedure, and insert these in the deck 
of cards comprising his original FORTRAN program. 
After compiling this program, running the resulting 
machine program, and comparing the resulting snap- 
shots with hand-calculated or known values, the pro- 
grammer can localize the specific area in his FORTRAN 
program which is causing the difficulty. After making 
the appropriate corrections in the FORTRAN program 
he may remove the snapshot cards and recompile the 
final program or leave them in and recompile if the pro- 
gram is not yet fully checked. 

Experience in debugging FORTRAN programs to 
date has been somewhat clouded by the simultaneous 
process of debugging the translator program. However, 
it becomes clear that most errors in FORTRAN pro- 
grams are detected in the process of translation. So far, 
those programs having errors undetected by the trans- 
lator have been corrected with ease by examining the 
FORTRAN program and the data output of the ma- 
chine program. 

Method of Translation 

In general the translation of a FORTRAN program 
to a machine-language program is characterized by the 
fact that each piece of the output program has been 
constructed, instruction by instruction, so as not only 
to produce an efficient piece locally but also to fit effi- 
ciently into its context as a result of many considerations 
of the structure of its neighboring pieces and of the 
entire program. With the exception of subroutines (cor- 
responding to various functions and input-output 
statements appearing in the FORTRAN program), the 
output program does not contain long precoded instruc- 
tion sequences with parameters inserted during trans- 
lation. Such instruction sequences must be designed to 
do a variety of related tasks and are often not efficient 
in particular cases to which they are applied. 
FORTRAN-written programs seldom contain sequences 
of even three instructions whose operation parts alone 
could be considered a precoded "skeleton." 

There are a number of interesting observations con- 
cerning FORTRAN-written programs which may throw 
some light on the nature of the translation process. 
Many object programs, for example, contain a large 
number of instructions which are not attributable to 
any particular statement in the original FORTRAN 
program. Even transfers of control will appear which 
do not correspond to any control statement (e.g., DO, 
IF, GO TO) in the original program. The instructions 
arising from an arithmetic expression are optimally 
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arranged, often in a surprisingly different sequence than 
the expression would lead one to expect. Depending 
on its context, the same DO statement may give rise to 
no instructions or to several complicated groups of in- 
structions located at different points in the program. 

While it is felt that the ability of the system to trans- 
late algebraic expressions provides an important and 
necessary convenience, its ability to treat subscripted 
variables, DO statements, and the various input-output 
and FORMAT statements often provides even more 
significant conveniences. 

In any case, the major part of the translator program 
is devoted to handling these last mentioned facilities 
rather than to translating arithmetic expressions. (The 
near-optimal treatment of arithmetic expressions is sim- 
ply not as complex a task as a similar treatment of 
"housekeeping" operations.) A list of the approximate 
number of instructions in each of the six sections of the 
translator will give a crude picture of the effort expend- 
ed in each area. (Recall that Section 1 completely treats 



arithmetic statements in addition to performing a num- 
ber of other tasks.) 



Section Number 


Number of Instructions 


1 


5500 


2 


6000 


3 


2500 


4 


3000 


5 


5000 


6 


2000 



The generality and complexity of some of the tech- 
niques employed to achieve efficient output programs 
may often be superfluous in many common applications. 
However the use of such techniques should enable the 
FORTRAN system to produce efficient programs for 
important problems which involve complex and unusual 
procedures. In any case the intellectual satisfaction of 
having formulated and solved some difficult problems 
of translation and the knowledge and experience ac- 
quired in the process are themselves almost a sufficient 
reward for the long effort expended on the FORTRAN 
project. 
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)N6 


















FN600 




59 


166 


30 


076200 


000304 


000000 


200000 


205 


FN610 




10 


166 


166 


077200 


000202 


077200 


000202 


501 


FN620 




08 


166 


166 


076200 


000202 


076200 


000202 


424 


FN630 




08 


166 


166 


053400 


100145 


053400 


100145 


434 


FN640 




15 


166 


166 


053400 


100146 


053400 


100146 


664 


FN650 




08 


166 


166 


053400 


100111 


053400 


100111 


424 


FN660 




09 


166 


166 


076200 


000303 


076200 


000303 


472 


FN670 




08 


166 


166 


076200 


000304 


076200 


000304 


450 


FN680 




18 


166 


166 


076200 


000221 


076200 


000221 


1001 


FN690 




ENDC 


FFILE 














REWIN 


D SYSTEMS TAPE 


















FNOOO 






1-CS 


(Not in 


edit deck) 








FN010 




02 


335 


110 


077200 


000222 


076200 


000321 


357 


FN020 




08 


4 


1400 






056000 


001412 


2113 


FN030 




16 


166 


166 


077200 


000203 


056000 


001412 


1024 


FN040 




19 


166 


166 


077200 


000204 


056000 


001412 


474 


FN050 




10 


166 


166 


076000 


000162 


056000 


001412 


1011 


FN060 




19 


4 


77766 






070000 


000001 


77777 


FN070 




01 


74 


74 


077200 


000202 


070000 


000001 


309 


FN080 




07 


FILEM 


ARK (EN1 


Z> OF FILE) 
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Transfer 


Load 


Last 






Record 


Description 


Address 


Address 


Address 


Contents of 


Contents of 


Number 


of Record 


8L Decrement 


8L Address 


8R Address 


Transfer Word 


Load Word 


FILE 1 














000 


1-CS (Loc's 0-27) 





0000 


0027 




-0 53400 1 00000 


001 


Card to Tape 


0342 


0110 


0416 


77200 00202 


76200 00321 


SECTIO 


*6 












002 


Diag. Caller for Re c. 115 


4000 


4000 


4021 


-0 63400 2 00000 


-0 63400 2 00000 


003 


CIT to SAP Conver. 


0210 


0210 


1200 


50000 00162 


50000 00162 


004 


Diag. Caller for Re c. 003 


1500 


1500 


1521 


-0 63400 2 00000 


-0 63400 2 00000 


005 


On-Line Print 


0210 


0210 


0551 


77200 00202 


77200 00202 


006 


Diag. Caller for Rec. 005 


1500 


1500 


1521 


-0 63400 2 00000 


-0 63400 2 00000 


007 


Tape 3, 7 to 2, 6 


0210 


0210 


1372 


77200 00202 


77200 00202 


008 


Diag. Caller for Rec. 007 


1500 


1500 


1521 


-0 63400 2 00000 


-0 63400 2 00000 


009 


Successful Compilation 


0030 


0030 


0037 


-0 76000 00007 


-0 76000 00007 


010 


Source Program Error 


0030 


0030 


0056 


-0 76000 00007 


-0 76000 00007 


Oil 

















FILE 2 














SECTIO 


* 1 (4k) 












012 


Batch Compilation Monitor 


0030 


0030 


0620 


76000 00166 


76000 00166 


013 


Machine Error 


0030 


0030 


0035 


00000 00031 


00000 00031 


014 


Common (4k) 


0004 


0030 


3437 


-0 53400 1 00027 


00000 00000 


014A 


Delete (8k) Common, Initial, 














and State A. 


0004 


0030 


0000 






015 


Write Drum (Init. ) 


0004 


0471 


0600 


-0 53400 1 00027 


53400 1 00575 


016 


State D (4k) 


0471 


3440 


6157 


53400 1 00575 


-0 53400 1 01117 


016A 


Delete (8k) States B, C, 














and D. 


0471 


6323 


0000 






017 


State C (4k) 


0504 


3440 


5043 


53400 4 01407 


56000 01406 


018 


State B (4k) 


0506 


3440 


5214 


53400 4 01410 


76000 00140 


019 


State A (4k) 


0510 


3440 


7306 


53400 4 01412 


-0 53400 4 02575 


020* 


Diagnostic for Sec. 1 


13440 


13440 


17777 


3 00000 4 13543 


3 00000 4 13543 


* Record 020 Uses Modulo Addressing. 












1 

SECTION 1 ■ 












021 


Common 


0004 


4550 


7760 


-0 53400 1 00027 


00000 00000 


022 


Part A 


1146 


1146 


3161 


76100 00000 


76100 00000 


023 


Diag. Caller for Rec. 022 


7755 


7755 


7776 


-0 63400 2 00000 


-0 63400 2 00000 


024 


Part B 


0507 


0507 


1613 


76100 00000 


76100 00000 


025 


Diag. Caller for Rec. 024 


7755 


7755 


7776 


-0 63400 2 00000 


-0 63400 2 00000 


026 


Section 1' 


0031 


0031 


1302 


77200 00202 


77200 00202 


SECTIO 


M2 












027 


Block 1 


5522 


5474 


7320 


77200 00224 


00000 00000 


028 


Diag. Caller for Rec. 027 


7400 


7400 


7421 


-0 63400 2 00000 


-0 63400 2 00000 


029 


Drum Setup 


0004 


7730 


7775 


-0 53400 1 00027 


-0 53400 2 07770 


030 


Block 2 - RELCON 


7730 


5566 


6565 


-0 53400 2 07770 


-0 53400 1 00030 


031 


Diag. Caller for Rec. 














029 and 030 


7400 


7400 


7421 


-0 63400 2 00000 


-0 63400 2 00000 


032 


Block 2 - Normal 


7732 


5566 


6650 


-0 53400 2 07767 


-0 63400 4 05622 


033 


Diag. Caller for Rec. 032 


7400 


7400 


7421 


-0 63400 2 00000 


-0 63400 2 00000 


034 


Block 2 - Common 


4012 


3751 


5565 


77200 00223 


00000 00000 


035 


Diag. Caller for Rec. 034 


7756 


7756 


7777 


-0 63400 2 00000 


-0 63400 2 00000 



Note: All Record Numbers suffixed by an "A" are 8k records. 
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c 
c 

c 
c 
c 



c 
c 
c 



c 



c 



c 



c 







Transfer 


Load 


Last 






Record 


Description 


Address 


Address 


Address 


Contents of 


Contents of 


Number 


of Record 


8L Decrement 


8L Address 


8R Address 


Transfer Word 


Load Word 


SECTKtt 


F 2 (cont'd) 












036 


Block 3 - Common, Part 1 


0004 


6665 


7073 


-0 53400 1 00027 


00000 00000 


037 


Block 3 - Part 2 


6721 


7614 


7774 


50000 07776 


-0 63400 1 77777 


038 


Diag. Caller for Rec. 














036 and 037 


0300 


0300 


0321 


-0 63400 2 00000 


-0 63400 2 00000 


039 


Block 3A 


6721 


6721 


7113 


-0 53400 1 00733 


-0 53400 1 00733 


040 


Diag. Caller for Rec. 039 


0300 


0300 


0321 


-0 63400 2 00000 


-0 63400 2 00000 


041 


Block 3B 


6721 


6721 


7613 


-0 53400 1 00733 


-0 53400 1 00733 


042 


Diag. Caller for Rec. 041 


0300 


0300 


0321 


-0 63400 2 00000 


-0 63400 2 00000 


043 


Block 3C 


6721 


6721 


7232 


-0 53400 1 00733 


-0 53400 1 00733 


044 


Diag. Caller for Rec. 043 


7400 


7400 


7421 


-0 63400 2 00000 


-0 63400 2 00000 


045 


Block 4 - RELCON 


0470 


0450 


1443 


50000 01430 


4010000000001 


046 


Diag. Caller for Rec. 045 


2000 


2000 


2021 


-0 63400 2 00000 


-0 63400 2 00000 


047 


Block 5 - Initialization 


0030 


0030 


0217 


53400 1 00131 


53400 1 00131 


048 


Diag. Caller for Rec. 047 


2000 


2000 


2021 


-0 63400 2 00000 


-0 63400 2 00000 


049 


Block 5 - Alpha 


0062 


5256 


7620 


53400 2 00146 


-0 63400 4 06252 


050 


Diag. Caller for Rec. 049 


6000 


6000 


6021 


-0 63400 2 00000 


-0 63400 2 00000 


051 


Block 5 - Beta and Common 


0066 


3646 


6637 


53400 2 00126 


000000000000 


052 


Diag. Caller for Rec. 051 


6000 


6000 


6021 


-0 63400 2 00000 


-0 63400 2 00000 


053 


Block 6 - Inversion 


0030 


0030 


0162 


77200 00224 


77200 00224 


054 


Diag. Caller for Rec. 053 


7000 


7000 


7021 


-0 63400 2 00000 


-0 63400 2 00000 


SECTIC* 


3 












055 


Open Subroutines 


0004 


7071 


7777 


-0 53400 1 00027 


2 00001 4 01306 


056 


Part 1 of Merge 


0030 


0030 


2326 


53400 1 02164 


53400 1 02164 


057 


Diag. Caller for Rec. 














055 and 056 


7755 


7755 


7776 


-0 63400 2 00000 


-0 63400 2 00000 


058 


Part 2 of Merge 


0030 


0030 


2367 


53400 4 02274 


53400 4 02274 


059 


Diag. Caller for Rec. 058 


7755 


7755 


7776 


-0 63400 2 00000 


-0 63400 2 00000 


060 


Part 3 of Merge 


0030 


0030 


2715 


53400 4 01202 


53400 4 01202 


061 


Diag. Caller for Rec. 060 


7755 


7755 


7776 


-0 63400 2 00000 


-0 63400 2 00000 


SECTIOr 


4 (4k) 












062 


Part 1 


0112 


0030 


1327 


77200 00224 


000000000000 


063 


Diag. Caller for Rec. 062 


1400 


1400 


1421 


-0 63400 2 00000 


-0 63400 2 00000 


064 


Part 2, First Rec. 


0004 


0033 


1104 


-0 53400 1 00027 


00000 00000 


065 


Part 2, Second Rec. 


1063 


3064 


3210 


-0 53400 1 00551 


-0 63400 4 00122 


066 


Diag. Caller for Rec. 














064 and 065 


3211 


3211 


3232 


-0 63400 2 00000 


-0 63400 2 00000 


067 


Part 3 


0111 


0033 


0437 


-0 54300 3 07774 


000000000000 


068 


Diag. Caller for Rec. 067 


0440 


0440 


0461 


-0 63400 2 00000 


-0 63400 2 00000 


069 


Part 4 


0042 


0033 


0161 


-0 53400 1 00031 


000010 00000 


070 


Diag. Caller for Rec. 069 


0162 


0162 


0203 


-0 63400 2 00000 


-0 63400 2 00000 


071 


Part 5 


0042 


0033 


0205 


50000 00032 


00000 7 00000 


072 


Diag. Caller for Rec. 071 


0444 


0444 


0465 


-0 63400 2 00000 


-0 63400 2 00000 


073 


Part 6 


0100 


0033 


1021 


77200 00224 


000000000000 


073A 


Delete (8k) Part 4 


0100 


0033 


0000 






074 


Diag. Caller for Rec. 073 


1022 


1022 


1043 


-0 63400 2 00000 


-0 63400 2 00000 


SECTION 


4 (8k) 












062 


Same Records as 












through 


used by the 












072 


4k Version 













Note: All Record Numbers suffixed by an "A" are 8k records. 
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Transfer 


Load 


Last 






Record 


Description 


Address 


Address 


Address 


Contents of 


Contents of 


Number 


of Record 


8L Decrement 


8L Address 


8R Address 


Transfer Word 


Load Word 


SECTION 


I 4 (8k) (cont'd) 












073 


Delete (4k) Part 6 


0000 


0001 


0000 






07 3A 


Part 6 (8k) 


0100 


0033 


1021 


77200 00224 


000000000000 


074 


Same as 4k 












SECTIOl 


r 5 (4k) 












075 


Part 1A - Optimize 


0004 


0030 


5215 


-0 53400 1 00027 


76200 00221 


075A 


Delete (8k) Part 1A 


0004 


0030 


0000 






076 


Part IB - Initialize and 














predict Limit 


7337 


7337 


7470 


54300 1 00362 


54300 1 00362 


076A 


Delete (8k) Part IB 


15674 


15674 


0000 






077 


Diag. Caller for Rec. 














075 and 076 


77750 


77750 


77771 


-0 63400 2 00000 


-0 63400 2 00000 


078 


Part 1C - Succ. Limit 


4740 


4740 


4773 


-0 53400 1 00103 


-0 53400 1 00103 


078A 


Delete (8k) Part 1C 


4740 


4740 


0000 






079 


Diag. Caller for Rec. 078 


77750 


77750 


77771 


-0 63400 2 00000 


-0 63400 2 00000 


080 


Part ID - Pred. UNDO 


4740 


4740 


4773 


-0 53400 100103 


-0 53400 1 00103 


080A 


Delete (8k) Part ID 


4740 


4740 


0000 






081 


Diag. Caller for Rec. 080 


77750 


77750 


77771 


-0 63400 2 00000 


-0 63400 2 00000 


082 


Part IE - Succ. UNDO 


4740 


4740 


4773 


-0 53400 1 00103 


-0 53400 1 00103 


082A 


Delete (8k) Part IE 


4740 


4740 


0000 






083 


Diag. Caller for Rec. 082 


77750 


77750 


77771 


-0 63400 2 00000 


-0 63400 2 00000 


084 


Part 2 - Permute 


0320 


0317 


0655 


76200 00223 


00000 77777 


084A 


Delete (8k) Part 2 


0320 


0317 


0000 






085 


Diag. Caller for Rec. 084 


77750 


77750 


77771 


-0 63400 2 00000 


-0 63400 2 00000 


086 


Part 3 - GO TO N, ASCONS 


0320 


0320 


0646 


76200 00222 


76200 00222 


086A 


Delete (8k) Part 3 


0320 


0320 


0000 






087 


Diag. Caller for Rec. 086 


77750 


77750 


77771 


-0 63400 2 00000 


-0 63400 2 00000 


088 


Part 4 - COMPILE 


3541 


0317 


4515 


-0 53400 2 00331 


00000 00003 


088A 


Delete (8k) Part 4 


3541 


0317 


0000 






089 


Diag. Caller for Rec. 088 


77750 


77750 


77771 


-0 63400 2 00000 


-0 63400 2 00000 


SECTION 


5' 












090 


Entire Section 


0030 


0030 


0444 


76400 00203 


764O0 00203 


091 


Diag. Caller for Rec. 090 


0450 


0450 


0471 


-0 63400 2 00000 


-0 63400 2 00000 


SECTION 


6 












092 


Pre -6 


0037 


0037 


1500 


77200 00202 


00000 00000 


093 


Diag. Caller for Rec. 092 


1367 


1367 


1410 


-0 63400 2 00000 


-0 63400 2 00000 


094 


Binary Search 


0210 


0037 


0300 


53400 2 00255 


1 00037 2 00037 


095 


Diag. Caller for Rec. 094 


1000 


1000 


1021 


-0 63400 2 00000 


-0 63400 2 00000 


096 


Assign Common 


0400 


0210 


0601 


-0 75400 00004 


100001 2 00211 


097 


Diag. Caller for Rec. 096 


1000 


1000 


1021 


-0 63400 2 00000 


-0 63400 2 00000 


098 


Equiv - DIM 


0400 


0400 


0647 


50000 00171 


50000 00171 


099 


Diag. Caller for Rec. 098 


1000 


1000 


1021 


-0 63400 2 00000 


-0 63400 2 00000 


100 


Common Mapping 


0210 


0210 


0461 


77200 00202 


77200 00202 


101 


Fortran FTN Assn 


0210 


0210 


0424 


-0 53400 1 00154 


-0 53400 1 00154 


102 


Diag. Caller for Rec. 














100 and 101 


1000 


1000 


1021 


-0 63400 2 00000 


-0 63400 2 00000 


103 


First Pass CIT 


0210 


0210 


0700 


-0 53400 1 00155 


-0 53400 1 00155 


104 


Diag. Caller for Rec. 103 


1125 


1125 


1146 


-0 63400 2 00000 


-0 63400 2 00000 


105 


Map Fortran Funct. 


0210 


0210 


0460 


53400 4 00402 


53400 4 00402 


106 


Diag. Caller for Rec. 105 


1125 


1125 


1146 


-0 63400 2 00000 


-0 63400 2 00000 



Note: All Record Numbers suffixed by an "A" are 8k records. 
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D 







Transfer 


Load 


Last 






Record 


Description 


Address 


Address 


Address 


Contents of 


Contents of 


Number 


of Record 


8L Decrement 


8L Address 


8R Address 


Transfer Word 


Load Word 


SECTION 


vj 6 (cont'd) 












107 


Map EIFN 


0210 


0210 


0500 


53400 4 00427 


53400 4 00427 


108 


Diag. Caller for Rec. 107 


0040 


0040 


0061 


-0 63400 2 00000 


-0 63400 2 00000 


109 


Map Program 


0210 


0210 


0550 


50000 00171 


50000 00171 


110 


Map Other Variables 


0210 


0210 


0670 


-0 53400 1 00032 


-0 53400 1 00032 


111 


Write Prog. Card 


0210 


0210 


0244 


77200 00203 


77200 00203 


112 


OP Tables 


0004 


1400 


2113 


-0 53400 1 00027 


56000 01412 


113 


Second Pass CIT 


0210 


0210 


0735 


77200 00204 


77200 00204 


114 


Diag. Caller for Rec. 109, 














110, 111, 112, 113 


0040 


0040 


0061 


-0 63400 2 00000 


-0 63400 2 00000 


115 


Library Search and Punch 


0210 


0210 


4400 


53400 1 00544 


53400 1 00544 


SECTIOr 


4 1 (8k) 












014 


Delete (4k) Common 


0000 


0001 


0000 






014A 


Common, Initial, and 














State A (8k) 


0004 


0030 


6322 


-0 53400 1 00027 


00000 00000 


015 


Delete (4k) Write Drum 














and Initial 


0000 


0001 


0000 






016 


Delete (4k) State D 


0000 


0001 


0000 






016A 


States B, C, and D(8k) 


0471 


6323 


12764 


53400 1 00504 


76000 00140 


017 


Delete (4k) State C 


0000 


0001 


0000 






018 


Delete (4k) State B 


0000 


0001 


0000 






019 


Delete (4k) State A 


0000 


0001 


0000 






020* 


Diagnostic for Sec. 1 


13440 


13440 


17777 


3 00000 4 13543 


3 00000 4 13543 


* Recorc 


020 Uses Modulo Addressing . 












SECTIOl 


F 5 (8k) 












075 


Delete (4k) Part 1A 


0000 


0001 


0000 






075A 


Part 1A - Optimize 


0004 


0030 


5715 


-0 53400 1 00027 


76200 00221 


076 


Delete (4k) Part IB 


0000 


0001 


0000 






076A 


Part IB - Initialize and 














Pred. Limit 


15674 


15674 


16025 


53400 1 00362 


53400 1 00362 


077 


Diag. Caller for Rec. 














075 and 076A 


77750 


77750 


77771 


-0 63400 2 00000 


-0 63400 2 00000 


078 


Delete (4k) Part 1C 


0000 


0001 


0000 






078A 


Part 1C - Succ. Limit 


4740 


4740 


4773 


-0 53400 1 00103 


-0 53400 1 00103 


079 


Diag. Caller for Rec. 078A 


77750 


77750 


77771 


-0 63400 2 00000 


-0 63400 2 00000 


080 


Delete (4k) Part ID 


0000 


0001 


0000 






080A 


Part ID - Pred. Undo 


4740 


4740 


4773 


-0 53400 1 00103 


-0 53400 1 00103 


081 


Diag. Caller for Rec. 080 A 


77750 


77750 


7777 \ 


-0 63400 2 00000 


-0 63400 2 00000 


082 


Delete (4k) Part IE 


0000 


0001 


0000 






082A 


Part IE - Succ. Undo 


4740 


4740 


4773 


-0 53400 1 00103 


-0 53400 1 00103 


083 


Diag. Caller for Rec. 082A 


77750 


77750 


77771 


-0 63400 2 00000 


-0 63400 2 00000 


084 


Delete (4k) Part 2 


0000 


0001 


0000 






084A 


Part 2 - Permute 


0320 


0317 


0655 


76200 00223 


00000 77777 


085 


Diag. Caller for Rec. 084A 


77750 


77750 


77771 


-0 63400 2 00000 


-0 63400 2 00000 


086 


Delete (4k) Part 3 


0000 


0001 


0000 






086A 


Part 3 - GO TO N, ASCONS 


0320 


0320 


0647 


76200 00222 


76200 00222 


087 


Diag. Caller for Rec. 086 A 


77750 


77750 


77771 


-0 63400 2 00000 


-0 63400 2 00000 


088 


Delete (4k) Part 4 


0000 


0001 


0000 






088A 


Part 4 - COMPILE 


3541 


0317 


4516 


-0 53400 2 00331 


00000 00003 


089 


Diag. Caller for Rec. 088A 


77750 


77750 


77771 


-0 63400 2 00000 


-0 63400 2 00000 



Note: All Record Numbers suffixed by an "A" are 8k records. 
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D 



J 
3 
D 
O 

J 

o 

J 
J 

D 
D 

3 

D 



D 

O 

■ O 



D 



\n; r-ij^A' ; v^» 






i4iP i 



,'.' 



"I 




Form R23-9S18-0 (2/59:lM-AG;68) 



